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ABSTRACT 
GETTING STARTED 


REQUIREMENTS 
EQUIPMENT 
STORAGE 


LOADING PROCEDURE 


STARTING PROCEDURE 
SWITCH SETTINGS 
CONTROL=C FUNCTION 
STARTING ADDRESS =200 
RESTART ADDRESS =250 
PROGRAM AND/OR OPERATOR ACTION 


PROGRAM HALTS (NORMAL + ERROR) 


ERRORS 
ERROR MESSAGE FORMAT. 
ERROR DICTIONARY 


OVERY 
MOS CHIP CROSS REFERENCE TABLE 
RESTRICTIONS 


MISCELLANEOUS 

ADDRESS/BANK RANGES IN OCTAL AND DECIMAL 
EXECUTION TIME 

PASS COUNT AND TEST NO. LOCATIONS 

STACK POINTER 

POWER FAIL 


PROGRAM gorigie- 
NARRATIVE FLOW CHART 

TEST TITLES AND TEST TIMES 
RXDP & ACT11 & APT OPERATION 
ECO HISTORY 


(1.0) 


{1.1 


ABSTRACT 


jog S sym fe a TEST 0 = 124K OF MF 

ON ANY PDP=11 FAMILY COMPUTER THAT DOES NOT 
RUCTION CYCLE BEFORE A DATO CYCLE FOR ALL INST 
AND 


TIONS. 

THIS PROGRAM CAN BE RUN UNDER XXDP, APT CT MONITORS. 
ON PROCESSORS WITH NO HARDWARE SWITCH REGISTER, SOFTWARE 
SWITCH REGISTER = LOCATION 176 AND SOF TWARE DISPLAY 
REGISTER = LOCATION 174. 

GETTING STARTED 


IF NO HARDWARE SWITCH REGISTER SET LOCATION 176 TO OBTAIN SWITCH 


11S=K MEMORY 
PERFORM 
Ss - 
A 


OPTIONS. 

TO START: 

ae re wie 00000 

Be THe ADDRESS OF THE CONTROL AND STATUS REGISTER 


(CSR) AND THE MEMORY LIMITS IT CONTROLS WILL 
BE PRINTED. IF TWO CONTROLLERS ARE PRESENT, 
BOTH CSR ADDRESSES WILL BE TYPED AS WELL AS 


BOTH IMITS. 

D. SEE SECTION 4.4 FOR REST OF PRINTOUTS EXPECTED. 

E. ‘END PASS #01°* WILL BE TYPED . THIS IS A QUICK VERIFY 
tet wee. THE TEST IS NOT COMPLETE UNTIL "END PASS #02" 

F. TO HALT THE TEST, TYPE CONTROL-C, THIS WILL INSURE THE 
PROGRAM IS RELOCATED BACK TO LOWER MEMORY AND THAT THE MEMORY 
HAS BEEN PURGED OF ANY DOUBLE ERRORS FORCED DURING TESTING. 

3 PATIENT, THE CONTROL-C IS ONLY RECOGNIZED AT THE END 
F THE CURRENT SUBTEST. 

G. IF AN UNEXPECTED HALT OCCURS SEE SECTION 6.0. IF AN 

ERROR # IS TYPED SEE SECTION 6.2. 


!CAUTION! BEFORE 'DIGGING’’ INTO THE LISTING READ 
SECTION 9. 


SWITCH SETTING SUMMARY (SEE SECTION 4.1 FOR DETAILS) 


BIT15(100000) HALT ON ERROR 
B1IT14(040000) LOOP 7 SUBTEST cera BY BITS <4:0> 


PRINT 
BIT12(010000) DISABLE TESTING ABOVE 28K (MEMORY MANAGEMENT) 
B1T11(004 ENABLE PRINTOUTS OF SINGLE ARRAY ERRORS 
BIT10(002000) HALT AFTER EACH SUBTEST 
B1IT09(001000) INHIBIT PROGRAM RELOCATION 
B1T08(000400) TYPE FIRST FAILING BIT ERROR PER 4k. 
B1T07(000200) ENABLE XOR PRINTOUT FOR ARRAY TESTS 
B1T06(000100) INHIBIT MEMORY SIZING 
B1T05(000040) poh "END PASS bee’ AND *RELOC’* PRINTOUTS 
BITO4 O CLEAR MEMORY OF — S(NO TESTS RUN) 
B1T03-81T00 BEGINNING TEST NUMBER 
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REQUIREMENTS 
EQUIPMENT 


STANDARD 11 FAMILY COMPUTER WITH A CONSOLE OUTPUT DEVICE 
AND FROM 32k TO 124K OF MS11K MEMORY (WITH EXCEPTION IN 1.0) . 


STORAGE 


PROGRAM STORAGE = 0000 = 14200. PROGRAM EXPANDS FOR ERROR 
HISTORY AND TO SAVE ABSOLUTE LOADER OR XXDP CHAIN MONITOR. 
(SEE SECTION 9. FOR DETAILS) 


LOADING PROCEDURE 


USE STANDARD PROCEDURE FOR PDP-11 ABSOLUTE BINARY FORMATTED TAPES. 
STARTING PROCEDURE 


SWITCH SETTINGS 
SOFTWARE SWITCH REGISTER = LOCATION 176 
BIT15(100000) HALT ON ERROR (SEE 5.0) 


BIT14(040000) LOOP ON TEST DEFINED BY SWITCH REGISTER BITS <4:0> 

B1T13(020000) INHIBIT ERROR PRINTOUTS AND ERROR HISTORY PRINTOUTS. 
ERROR HISTORY CAN STILL BE OBTAINED BY TYPING “C. 

BIT12(010000) DISABLE TESTING ABOVE 28K. (MEMORY MANAGEMENT) 


B1T11(004000) ENABLE PRINTOUTS OF SINGLE ERRORS ON ARRAY TESTS 
(DISABLES ECC FOR ARRAY TESTS) 


BIT10(002000) HALT AFTER EACH SUBTEST 

!PRESS CONTINUE TO Pea Ties SUBTEST 
BIT09(001000) INHIBIT PROGRAM RELO 

testi. LOCATIONS “30-7776 WILL NOT BE 


BIT08(000400) TYPE FIRST UNCORRECTABLE ERROR_IN EACH 4K BANK ONLY. 
‘THE TOTAL ERROR COUNT (UP TO 377) WILL 
!BE SAVED IN THE ERROR HISTORY. 

BIT07(000200) ENABLE XOR PRINTOUT FOR ARRAY TESTS 

BIT06(000100) INHIBIT MEMORY SIZING. 
!THE MEMORY LIMITS MUST = SETUP IN THE FOLLOWING LOCATIONS: 
(VALUES TO TEST 0-28kK ARE SHOWN) 


(LOWTWO=LOCATION 332) 
LOWTWO: 0 :STORE BITS 17:16 OF LOW TEST ADDRESS 
LOWADD: 0 STORE REST OF LOW TEST ADDRESS 
HIGHTWO: 0 STORE BITS 17:16 OF HIGH TEST ADDRESS 
HIGHADD: 157776 STORE REST OF HIGH H ADDRESS 
NOTE: HIGHADD MUST BE SET TO A 4K BOUNDARY. 37776) 

AND LOCATION LDFLG MUST = 1 IF THE PROGRAM 

IS RESIDING IN THE MS11K MEMORY. 


[4.2] 


[4.3] 


[4.4] 


F 4 
B1T05(000040) INHIBIT ‘END PASS #XX'' AND ‘RELOC’’ PRINTOUTS 


BIT04 SCANS MEMORY WITH ECCDIS. NO TESTS RUN. 
TERMINATE AFTER PASS#1 WITH “C. 


B1T03-81T00 NUMBER OF TEST (0-17) TO RUN FIRST. 
'NORMALLY USED WITH BIT14 (LOOP ON TEST) 


CONTROL=C FUNCTION 


CONTROL C [*CJ A COMPLETION OF THE CURRENT TEST. 
THE ERROR HISTORY rea SEC. 6.3) WILL BE 
TYPED. THE PROGRAM W toGP” IN LOWER MEMORY. 
HALT AND RESTART AT 4350 IF DESIRED. 


IN ORDER TO COMPLETELY TEST THE ERROR CORRECTING 
LOGIC, DOUBLE ERRORS ARE FORCED a MEMORY ON 
CERTAIN TESTS. TO EXIT FROM THE P Eee HALT 


EX 

PERMITTED TO CLEAN UP THE MEMORY UNDER TEST. IF 
NOT, THERE EXISTS THE POSSIBILITY OF UNCORRECT- 
ABLE ERRORS REMAINING IN THE MEMORY. 


STARTING ADDRESS= 200 
RESTART ADDRESS = 250 OR 200 


RESTART AT 200 CLEARS PASS COUNT ($PASS) AND PRINTS DIAGNOSTIC TITLE. 


PROGRAM AND/OR OPERATOR ACTION 


1) LOAD PROGRAM INTO ~ tegr o USING ABSOLUTE LOADER. 

2) SET gly: (SEE wie ot) 

3) START THE PROGRAM A 

4) THE FOLLOWING IS AN. EXAMPLE WITH EXPLANATIONS 

OF THE PRINTOUTS EXPECTED. 

"XXXXX=VVVYVY"" sADDRESSES OF TEST BOUNDARIES. 

"NO RELOC-SBE IN LOC sige oO RELOCATION IS INHIBITED BECAUSE 
7SINGLE ERRORS IN THIS AREA WILL CORRUPT 

PROGRAM WHEN RELOCATED. 

"RELOC"’ 2 THE DIAGNOSTIC RELOCATES TO HIGHEST 
BANK UNDER TEST. AND RUNS TSTO-TST13 AGAIN. 

"END PASS #Xx"" sWHERE *XX'' iS THE PASS NO. 


"TST7-NO ERROR FREE LOC IN SLICE AT XXXXXX"' THE LAST PART OF 
TEST 7 CHECKS FOR PROPER 1K ADDRESSES IN 
THE CSR AFTER A DOUBLE ERROR. THIS MES- 
SAGE _INDICSTES THAT THIS SLICE COULD NOT 
BE TESTED AND IT IS PROCEEDING TO THE 
NEXT 1K SLICE. 


SEQ 0005 





G 1 
ADDITIONAL PRINTOUTS 


"NO MNG"’ sPRINTED IF AS ape ABOVE 28K IS ENABLED 
;(BIT 12 OF SWR) AND MEMORY MANAGEMENT IS 
NOT AVAILABLE. 


PROGRAM HALTS (NORMAL+ ERROR) 


THIS IS A_LIST OF EXPECTED HALTS. IF THE TEST HALTS 
NO a LESS THAN 776, IT 


NOT SUBTEST AND HALT ON ay HALT LOCATIONS 
MAY BE RELOCATED. THE ACTUAL LOCATIONS THEY ARE IN CAW BE FOUND 
BY SUBTRACTING 500 FROM 2362CSWHALT] AND ADDING THIS DIFFERENCE TO THE 
CONTENTS OF SAVR6 CLOC. 352]. 


PC RECOVERY 


112 TRAP TO LOC. 4 EXAMINE R6, IT CONTAINS 
THE POINTER TO THE PC 
WHERE mM. Fs OCCURRED. 


some 

THE PROGRAM WILL LOOP AT 
LOC BUSER UNTIL MANUALLY 
HALTED. CHECK THE LOCATION 
POINTED TO BY sts ite” 
TO INSURE THA E'S 
REMAIN IN THE "TESTED AREA. 


100 POWER FAIL POWER UP WILL RECOVER 
IF IN CORE MEMORY. 


2364 HALT AT END OF PRESS CONTINUE TO GO TO 
TEST SWITCH SET. NEXT SUBTEST. 


13624 HALT ON ERROR RESTART AT 250 


13712 CONTROL~C_ TYPED RESTART AT 250 
OR FATAL ERROR 
OCCURRED 


ANY OF THE ABOVE HALT CONDITIONS THAT PERTAIN TO 
APT ACTUALLY RESULT IN A TIGHT LOOP SO THAT THE 
ERROR INFORMATION CAN BE RECOVERED. CONSULT LISTING 
FOR MORE DETAIL, IF NECESSARY. 


ERRORS 


ANY REFERENCE TO ‘ERROR’ IN THIS DOCUMENT gy AN ERROR 
AS DEFINED BY THE PROGRAM AT EXECUTION TIME. NORMALLY, IT IS 
AN _UNCORRECTABLE ERROR UNLESS ERROR CORRECTING IS DISABLED 
THEN IT MEANS ALL ERRORS. 





H 1 


ERROR MESSAGE FORMAT 
ina. PRINTOUT CONSISTS OF 6 OCTAL WORDS IN THE FOLLOWING 


“ADDR GOOD BAD PC ERR # PASFLG XOR *' 


"ADR ERR'' WILL BE PRINTED PRIOR IF AN ADDRESSING ERROR IS SUSPECTED. 


FAILING MEMORY LOCATION 

GOOD DATA_CDATA THAT WAS EXPECTED] 

BAD DATA CDATA THAT WAS FOUND] 

PROGRAM COUNTER AT ERROR CALL. 

FAILING ERROR NO. (SEE SEC 6.2 - ERROR DICTIONARY) 
CONTENTS OF LOCATION PASFLG.THIS MAY NOT BE RELEVANT. 
(SEE SEC. 6.2-ERROR DICTIONARY) 

EXCLUSIVE 'ORING' OF GOOD VS. BAD (BITS IN ERROR). 
AVAILABLE ONLY IF SINGLE ween ARE TO BE PRINTED 
OUT VIA SWREG BIT 07 HIGH 


E 
PASFLG 
XOR 


:THE TEST WILL CONTINUE AFTER THE ERROR PRINTOUT. 
'"NO MNG'' WILL BE TYPED IF TESTING ABOVE 28K SELECTED AND NO MEMORY 
!MANAGEMENT IS FOUND. 


(FATAL ERRORS) 


"ERROR #XXXXXX"" WILL BE TYPED WHERE ‘'XXXXXX'' IS * 
THE ERROR NUMBER. THE DIAGNOSTIC WILL LOOP AT FATHLT UNTIL MANUALLY 
vag toy ai" 6.2 -ERROR DICTIONARY - FOR DESCRIPTIONS 


(APT MODE ERRORS) 


ALL ERRORS ARE TREATED AS FATAL UNDER APT. WHEN AN 
ERROR OCCURS UNDER APT A ‘'l’* IS STORED IN LOCATION 
SMSGTY AND THE PROGRAM LOOPS AT FATHLT. 


$FATAL CONTAINS THE ERROR NO. IN THE LOW BYTE AND 
THE FAILING BANK NO. UNDER TEST IN THE HIGH BYTE. 
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ERROR DICTIONARY 


THIS IS A LIST OF ERROR NUMBERS PRINTED AND POSSIBLE 
CAUSES FOR _THE ERROR. IF THE ERROR JS SUCH THAT THE TESTING 
CAN BE CONTINUED AFTER THE ERROR PRINTOUT, IT WILL DO SO. 
— ROUTINE NAME WHERE THE ERROR CALL ORIGINATED IS GIVEN IN 


"'BAKPAT’’ REFERS TO THE BACKGROUND PATTERN WRITTEN INTO MEMORY 
FOR VARIOUS TESTS. BAKPAT_HAS THE VALUE = 377, AND 
SWAPAT HAS THE VALUE = 177400. 


CZMMLCO MF11S-K_MEM DIAG 


CZMMLC.P11 


MN 2 PR Ss SS OS es SS 
—OUOONANESWNH-ODONAUSWI 


22 


000042 


000046 
000052 


MACY11 30A(1052) 


17-MAR~80 10:47 


160000 


000240 


000044 


>*DIGITAL EQUIPMENT CORP. 


J 1 
17=MAR-80 10:48 PAGE 2 


MD MC, CND 
ME BIN, SEQ, LOC 

C2MMLCO MFI1S-K MEM DIAG 
GHT (C) FEB 1977,0CT 1979 


¢ SMAYINARD . MASS. 01754 
! #PROGRAM BY JIM RYAN 


aTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
s SPACKAGE (MAINDEC=11=DZQAC-C3), JAN 19, 1977. 


$suR=160000 ;;HALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 


SCOPE 


- SBTTL 


002640 002656 PWRDN: 
000242 
000240 
000003 


000002 
000136 000024 


33 TRAP CATCHER OF .+2 AND HALT FOR 0-776 LOCATIONS 


=NOP 
=42 
"WwORD 0 FOR ACT/XXDP 
ACT11 HOOKS 
FARRER ERK EER ERE AREER EREREREKEE 
“HOOKS REQUIRED BY ACT11 
vPC=, SAVE PC 
SENDAD :21)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 
“WORD 40000 ;:2)SET LOC. 352 TO 40000 
" =$SVPC +: RESTORE P 
MOV ECCDIS,@CSRADR ;DISABLE ECC 
CLR aM INMEM SCLEAR FIRST ADDRESS 
CLR @MINMEM+2 SECOND WORD 
BIC #3,R1 : 
CLR (Ri) CLR A LOC 
CLR 2(R1) “NEXT 
MOV #PWRUP , a#24 : 
HALT 


SEQ 0009 


K 1 
CZMMLCO_MF11S-K_MEM DIAG MACY11 30A(1052) 17=MAR=80 10:48 PAGE 3 
CZMMLC.P11 17=MAR=80 10:47 ACT11 HOOKS 


3114 AND i aes RESERVED FOR PARITY TRAP VECTORS.USED IN TST7. 
;* WRITE MEMORY BACKGROUND 


NTING TO THE LOWEST LOCATION AND R5 TO THE 
HIGHEST LOCATION TO BE WRITTEN. THE PROGRAM LEAVES THE 
SUBROUTINE WITH RO CONTAINING THE CONTENTS OF BAKPAT. 


BeBe Be Be Be Be Be Be 


. 
aeene ee He 


WRTMEM: MOV R4,R1 ar R1 TO LOWEST LOCATION UNDER TEST 
MOV @4BAKPAT ,RO OAD _RO WITH THE CONTENTS OF LOCATION BAKPAT 
2$: RO, (R1)+ ‘STARTING FROM THE LOWEST LOCATION WRITE THE 
lid ;MEMORY TO BACK GROUND PATTERN 


PC RETURN FROM THE SUBROUTINE 
013706 000346 : @ASAVRG , SP sRESTORE _STACK POINTER 


012700 013772 #PNTME S~BEGIN,RO 

060600 SP,RO :GET THE’ INDIRECT ADDRESS OF LOCATION 
:TPCRLF RELATIVE TO LOCATION OF THE 
[DIAGNOSTIC IN MEMORY AND GO TO THE | 

004710 — 7; TYPE ROUTINE AND TYPE CR, LF & A ‘P’’. 


START 


3* SERVICE XXDP/ACT11 

SENDAD: JSR PC, (RO) RETURN TO ACT11/XXDP MONITOR 

NOP :I1F QUICK VERIFY=RESET ELSE NOP 

NOP zI1F QUICK VERIFY=CLR #-1 ELSE INC #0 
:1F QUICK VERIFY=8R .-4 ELSE NOP 

RESTRT ;REPEAT TEST UNDER ACT11/XXDP 


REL: : 0 ZTELLS IF WE'RE RELOC 


DSPREG: . 0 
SWREG: 0 


JAAR EERE REEEEREREEREREREREEREEE 
"SBTTL START AND RESTART ROUTINES 
: RESTART AT 200 TO CLEAR APT TABLES 
JARRE ERE REEREREREKEE EEE 
005077 002524 START: CLR @CSRADR ;JUST_IN CASE 
013706 000346 MOV @ASAVR6, SP 7SETUP STACK POINTER. 
012703 000412 MOV #SUNIT,R3 [CLEAR THE APT MAILBOX FROM $MAIL TO SDEVCT 


77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
9% 
95 
% - 
97 
98 
99 
00 
01 
02 
03 
04 


—_— ss 
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CZMMLC.P11 17-MAR-80 10:47 T AND RESTART ROUTINES 


105 005043 1$: ~(R3) CLEAR A MAILBOX LOCATION 
000400 ASMAIL ,R3 ; DONE? 
1$ sBRANCH IF NO 


BNE 
000042 ase SACT11 MODE? 
BN RESTRT BRANCH IF YES 
000170 @AREL sARE WE RELOCATED? 
BM RESTRT BR IF YES= SINCE he IS RELOCATED ALSO- 
015474 PC,PRTITL sPRINT DIAGNOSTIC TITLE 
NOP iSO We FALL THRU TO RESTART 


R 


012703 000344 RESTRT: MSAVRS ,R3 sPOINT R3_TO THE LOC SAVRS 
012305 MO (R3)+,R5 RESTORE R5 

payed SP SAND RESTORE R6 JUST IN CASE IT IS A RESTART 
010600 RO [PLACE THE STARTING at OF THE TEST IN RO 
012746 #340, (SP) SET HIGH PRIORITY FOR RTI 
010046 RO,-(SP) 
000002 ;GO TO ‘START’ '-MAY BE RELOCATED. 

SIF RELOCATED SEE LOCATION SAVR6 FOR START. 


-SBTTL APT PARAMETER BLOCK 


J EERE EERE REEEREEEEEEEEREKKEEEKK 
:SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
FREER REERREREEEREEEEEEREREREREREEREKEEKEEKEEEEKEEREEEEKEEKKKKEE 
z:SAVE CURRENT LOCATION 
33SET POWE R FAIL ye POINT TO START OF PROGRAM 
3 POINT TO APT INDIRECT ADDRESS PNTR. 
‘POINT TO APT HEADER BLOCK 
RESET LOCATION COUNTER 
FF EAA EEREREREKEEKEEREKEEEREEKERKEEKEEREEEREEREERERERREEREEEE 
>SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
S INTERFACE SPEC. 


BSRIFARASASSSVRARUVLYZOVSARAW=oSRL 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


&s 
-Oo 


SAPTHD: 
$HIBTS: 0 ;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
$SMBADR : D SMAIL :ZADDRESS OF APT MAILBOX (BITS 0-15) 
25. + 7 RUN TIM OF LONGEST TEST 
110. 3 RUN if ad IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
>: ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
SETEND-ShAILU> 72LENGTH MAILBOX~E TABLE (WORDS) 


:THIS BYTE IS USED TO 7 oe IF MEMORY 
;MANAGEMENT IS AVAILABLE OR 


MOMMA MAU 


ee ee ed ed wd sd = Rr 
SSSNFRLUNVSS 
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CZMMLC.P11 17-MAR~80 10:47 PARAMETER B 


000273 TYPENB: THIS BYTE IS USED TO DETERMINE IF THE 
TYPE OUT OF ERROR HAS BEEN ENABLED OR NOT 


.=TYPENB+1 
000274 SPRERR: THIS BYTE DETERMINES IF THE PROGRAM HAS FOUND 
7A PARITY ERROR 


=$PRERR+1 
090275 SADERR: THIS BYTE IS USED TO DETERMINE IF THE 
PROGRAM HAS ENCOUNTERED ADDRESS ERROR 


. =SADERR+1 
000276 STRIDI: 
-=STRIDI+2 
000300 LOWBNK : 
. =LOWBNK+2 
000302 PASFLG: ;LOWER BYTE OF THIS WORD es THE PASS NUMBER FOR 
: THE SPECIFIC TEST WHEREAS THE UPPER BYTE 
SHAS BEEN USED BY DIFFERENT TEST FOR DIFFERENT PURPOSES 


-=PASFLG+2 
ENDSTK: 
- =ENDSTK+2 


PBNK : 
DECWRD: 

-=DECWRD+2 
TYPCNT: .BYTE 0O nme THE NUMBER OF WORDS 


SAVKBB: .BYTE 0 sTHIS LOCATION IS USED TO SAVE THE CHARACTER 
HIT BY THE OPERATOR 
ZALSO IS USED AS TEMP IN ROUTINE $GTSIZ. 


;HOLDS BANK UNDER TEST FOR ‘TST BNK XX** PRINTOUT. 


. s 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 


BLERLAVALSYSIVAARAVVSS 


177560 


377 ;BACKGROUND PATTERN WRITTEN TO MEMORY. 


: WORD 
: BEGIN-50 sHOLDS LOWEST TEST ADDRESS WHEN RELOCATED. 
: .WORD 100000 zFIRST ADDR FOR ECC IN CASE OF APT 


[SoAtonae Taian TOnRIeaies Ge CaRRTa Ta te ane 
“LOCATIONS TO BE MODIFIED IF LIMITS SET BY OPERA 
LOWTWO: 0 DS BITS 17: 160 OF LOW TEST ADDRESS 
LOWADD: 0 SHOLDS BITS 15:0 OF LOW TEST ADDRESS 


HIGHTWO: 0 sHOLDS BITS 17: 7 A 4 HIGH TEST ADDRESS 
HIGHADD : 37776 sHOLDS BITS 15:0 OF HIGH TEST ADDRESS 


Lf fr tT Ate, OO nn RB A Md 


$SHIMAX: 0 HOLDS BITS 17:16 OF MAXIMUM AVAILABLE MEMORY 
SMAXM: 17776 sHOLDS BITS 15:0 OF MAXIMUM AVAILABLE MEMORY 


SESRae 


RoMNnononofnony 
— os ws os I 
Quskwt—oO 
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MAXMEM: . WORD ;MAXIMUM CURRENT VIRIUAL MEMORY UNDER TEST 
SAVMAX: .WORD 
SAVR4:  .WORD 
SAVRS: .WORD 
-* SAVR6 POINTS TO WHERE THE PROGRAM STARTS EVEN WHEN RELOCATED. 
SAVR6: .WORD BEGIN ;CONTAINS START ADDRESS WHEN RELOCATED ALSO. 
SAVLOC: 0 STEST 17 STORES ERROR INFO HERE 
GET HERE IF AN ILLEGAL TRAP "O LOC. 4 OCCURRED 
012737 000001 000400 BUSER: MoV #1, a#SMSGTY :TELL APT FATAL ERROR #000 
000774 BR BUSER SLOOP SO APT CAN GET INFO 


3*364-400 IS USED AS A STACK AREA BY ERRCHK ROUTINE FOR ERROR HISTORY PRINTOUT 
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000400 .=400 
-SBTTL APT MAILBOX-ETABLE 


5g RRA REEEEEEKRARREREEEEEEEREERREEEEER EERE EEE 


T MAILBOX 
: MESSAGE TYPE CODE 
;FATAL ERROR NUMBER 


; ENGTH 
7 7APT ENVIRONMENT TABLE 
i ieee BYTE 
NVIRONMENT MODE BITS 
3 SAPT SWITCH REGISTER 
SWITCHES 


TYPE 
11/04=01 ,11/05=02,11/20=03,11/40=04 ,11/45=05 
11/70=06 .PDQ=07 ,=10 


CLOCK 
BIT 9=FLOATING POINT PROCESSOR 
BIT 8=MEMORY MANAGEMENT 
+ HIGH ADDRESS,M.S. BYTE 
PE BLKAI 


MEM. TYPE BYTE bee bo BYTE) 


500 NSE 
ee ADDRESS ,BLKA#1 
M.LAST ADDR.=3 orrede THIS WORD AND LOW OF *'TYPE’’ ABOVE 
; sHIGH ADDRESS M.S. BYT 


:IMEM"LAST ADDRESS ,BLK#2 
; SHIGH ADDRESS,M.S.BYTE 


-LAST ADDRESS ,BLK#3 
:IHIGH ADDRESS .M.S.BYTE 
MEM. TYPE ,BLKA4 
> 7MEM.LAST ADDRESS ,BLKA4 


FERRER ARERR EE 


* SBTTL BEGIN OF AREA TESTED (+20) WHEN PROGRAM RELOCATES. 


BEGIN: 2 SET UP STACK POINTER 
T ) ;TO EQUAL BEGIN ADDRESS 
016154 . PUT END OF PROG ADDRESS INTO R4 
000346 MO SP, @ASAVR6 :SAVE SP FOR ee USE 
000044 000024 V APWRDN , #24 PREPARE FOR Ae has POWER DOWN 
014562 J PC,CLRMM CLEAR MEM 





CZMMLCO MF11S-K_MEM DIAG 


CZMMLC.P11 


291 
292 
293 
295 


297 


FER 


S33 


301 
302 
303 


305 


2 


Sees 


WIWWNIWWNWANWWG 
el ee ee ed ed el eed ed 
WOONAUSWIR—O 


8 


321 


-17-MAR~80 10:47 


000310 
000170 


001344 
002146 
000566 
000014 


013326 


002000 
000500 
000020 


000001 
016154 


MACY11 30A(1052) 


000004 
177746 


002016 


001764 
001752 


046105 
042502 
026460 


17-MAR-80 


BEGIN OF AREA TESTED (+20) WHEN 


4$: 


7$: 
6$: 


5$: 


1$: 


8$: 


2$: 


3$: 


ONEPAS : 


C 
TSTB 


@4TYPCNT 
@AREL 


#7$, an 
#14. #177746 
6$ 

#4, SP 
#100000,R1 
(R1)+¢ 

(R1) 

#20004 ,ac SRADR 
#7740, @CSRADR 


#20000, ECCDIS 
#20000 ,DIAGA 


(R 
| aaaataata, 
PC,FATERR 


INHREL 

2s 
R1,ABEGIN 
2$ 

#20, aCSRADR 
2s 


#1, INHREL 
 typiencinc 


#4 ,R1 
1$ 
INHREL 


ONEPAS 
PC, TPCRLF 


RO 
@ASTESTN 
TSTRP 

SE TSWR 


2 
10:48 “ paGe 


8 
PROGRAM RELOCATES. 


ot ey gd ? 
;BR 


sPREPARE FOR NON-EXISTANT 
211/60 CACHE CONTROL REG 


F NOT 


[BR IF ALL OK 
:RECOVER FROM TRAP 
[CLEAR FIRST LOC 

[CLEAR SECOND LOC 


:DIAG 
sREAD THE LOC TO NASIK IF ANY 


BIT 


SIF SET WE'RE I 


BR IF TEST 

2 JUST IN CASE WE ARE TESTING 
SECOND CSR (1 
IF NOT IN MEM UNDER TEST 


; THE 


IN MEM UNDER 


CLEAR CSR 


: INDICATE PROG IN MEM UNDER TEST 
;DISABLE ECCINH IN LOW 16K 
+ SAME FOR DIAG CHECK 


HIT IS, CHECK FOR ERRORS 


:DON'T WANT TO TRAP 
READ THE LOC 
CHECK FOR DOUBLE ERROR 


:*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 


;ek**RKERROR NUMBER 


7 ANY 


LOOKING FOR SBE'S IN 0-500 
:BR IF NO ERRORS 

: INHIBIT RELOCATION 

END OF PROGRAM YET? 


ERRORS FOUND YET ? 
7 YES, DON'T LOOK ANY FURTHER 


BR IF YES 


2NO POINT TO NEXT LOCATION 
;KEY READING 

SRELOCATION ALLOWED ? 

SBR IF YES 


PRINT ROUTINE 
/NO RELOC-SBE IN’ 0-500/ 


3 SET 


AS THis Th FIRST PA vent 
(TEST TRAP CATCHERS) 


UP SUREG 


72134) 


| kkkeKe 


SEQ 0015 


CZMMLCO MF11S-K_MEM DIAG 
17-MAR~80 10:47 


CZMMLC P11 

47 1044 
3%48 001050 
349 001054 
350 001056 
351 1060 
352 001064 
353 1066 
354 001070 
355 001072 
356 001074 
357 001076 
358 001102 
359 

360 

361 001104 
362 001106 
363 001110 
364 001112 
365 001114 
366 001120 
367 001122 
368 001124 
369 001126 
370 001132 
371 001136 
372 001142 
373 001146 
374 001152 
375 001154 
376 001162 
377 001166 
378 001170 
379 001174 
380 001202 
381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 001210 
392 001214 
393 091222 
394 1230 
395 001234 
396 1236 
397 001242 
398 001246 
399 001250 
400 001252 
401 001256 
402 1260 


0627 
012737 
012737 


016154 
000377 


000400 


013144 


000400 
001576 
000006 
000340 
001170 
000420 


000422 
001544 


000004 
000176 
000174 


000431 
012762 


MACY11 30A(1052) 


002732 


002732 
002734 


000332 
000334 


TSTRP: 


1$: 


3$: 
4$: 


5$: 


6$: 


SETSWR: 


1$: 
2$: 


APTSIZ: 


1$: 


17-MAR-80 


MOV 


#ENDPROG ,R4 

Shh 
(R1)+,(R4)+ 
1,A$MAIL 


-(R1) 
RO, (R1) 
RO,(R1) 
5$ 


PC,FATERR 


ASMAIL ,R1 
~(R4),-(R1) 
R1 

6$ 

@CSRADR 
#6,RO 
#340, (RO) 
#2$,~-(RO) 
@a*$ENV 


1$ 
ASSWREG , AASWR 


aSwR 
APTSIZ 

#4 ,SP 
#SWREG, a#'SWR 


PLAC 
#DSPREG, -SADISPLAY FOR COMPUTERS 


D 2 
10:48 PAGE 9 
BEGIN OF AREA TESTED (+20) WHEN 


PROGRAM RELOCATES. 
s ADDRESS OF END OF PROGRAM 
:POINT TO ADDRESS 0 
:SAVE 0000 TO BEGIN- 
BEGINNING OF ETASLE 
F NOT DONE 
; ADJUST POINTER TO TRAP VECTORS 
WRITE 1°S AND 0°S 
NOW COMPARE 


sBR IF OK 
;*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 
p*kaekkERROR NUMBER Oxaxnnn 


‘BR IF BOTH BYTES NOT TESTED 
SHAVE WE REACHED THE BOTTOM YET 


:BRANCH _IF 
Hae RESTORE TO $MAIL 


7F INISHED? 
BR IF NOT 
CLEAR CSR 
; ADDRESS OF PSW_FOR TIMEOUT TRAP 
;SET UP_TIME OUT TRAP PSW 
2AND RETURN ADDRESS 
: RUNNING UNDER APT 
:1F NOT, SET UP ADDRESS FOR SWR 
‘OTHERWISE. PREPARE TO USE APT SWR 
:DOES SWITCH p POINTED TO BY SWR EXIST 
7 YES, GO TO APTSIZ 
RESTORE STACK POINTER 
E ADDRESS OF SWITCH REG DESIGNED 
NOT HAVING HARDWARE 
TCH REG AND RUNNING STAND ALONE. 
:R4=4 END PROG ON EXIT 


sAPTSIZ-THIS ROUT INE we SEARCH THE APT MEMORY ETABLE 


AND WHEN A NON ZERO 
GIVEN HIGH ADDRESS. 


IS FOUND WILL SETUP TO TEST TO 


IF APT DEFINES size LO ADDRESS MUST -00000 


sPOINT R3 TO 


AMAXMEM ,R3 MAXMEM 
@#HIGHTWO,@WSHIMAX ;IN CASE NO SELF SIZING DONE 
a4SMAXM ; 


@#HIGHADD. 
OrSENVM 
ASMTYP4+4,R1 
#4,R1 

(Ri) 

2$ 

RI ASMTYP1 
PC,FATERR 


:DOES ae SELF SIZING 


:BR 

POINT R1 TO BLOCK TYPE 4+4 
:POINT TO NEXT BLOCK TYPE 

21S IT NON-ZERO 

BR IF YES (MEMORY EXISTS) 

eALL 4 BLOCK TYPES BEEN CHECKED 


‘ SERROR® REPORT ERROR MESSAGE AND HALT AT FATHLT 


SEQ 0016 


Trg Aah MEM DIAG 
CZ 17-MAR=80 10:4 


MMLC .P 


001264 


8888sees 
RYERSS 


000003 


000004 
013214 
000272 


001544 
040000 


MACY11 get 


001424 


001354 


17=MAR-80 


E 2 
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GIN OF AREA TESTED (+20) WHEN PROGRAM RELOCATES. 


2$: 


BRTPSZ: 


TRYSR: 


SLFSIZ: 


1$: 


11$: 
2$: 


22$: 
3$: 


4$: 


5$: 


PC,GETADR 
PC,GETADR 
TYPSIZ 


#100 ,aSWR 
TYPSIZ 


MSYES 
act 
#4$, (RO) 
@CSRADR 


C 
(R1),=(SP) 
ert), -(SP) 


Sr R1) 
DIAGA,@CSRADR 
(R1) 


@CSRADR ,R2 
@CSRADR 
(SP)+,2(R1) 


(SP)+"(R1) 
# 70087 ,R2 


#6$, (RO) 
#40000,R1 


y*x«eekERROR NUMBER 3xxanne 


SET MAX APT ADDR INTO jan +$HIMAX 
ALSO INTO HIGHADD + HIGH 
TYPE SIZE OF MEM UNDER TEST 


sUSER DEFINED BOUNDARIES 
;BR IF YES (DON'T SIZE MEM) 


: INITIALIZE MSYES 

GET READY FOR LOW TEST ADDRESS 
sFIRST TEST LOC (0) 

SET UP RETURN FROM TIMEOUT TRAP 


ySAVE THE CONTENTS OF TEST LOC. 
:T0 SET CHECK BITS OF MS11K 


;DIAGNOSTIC BIT 
READ TO GET a BITS 
sGET CSR CONTENTS 


SRESTORE THE HI WORD 
RESTORE THE LO WORD 

ONLY CARE ABOUT 11-5 

:BR_IF NO MS11K 

onan SUCCESSFUL TEST 


: H 
:IF THIS IS FIRST READABLE LOC 
: THEN at AVAIL? S IS 0000, ELSE BR 


“RESTORE STACK oth ie AFTER TRAP 
SERVICE MM IF AVAILABLE 

[SEE IF MM HAS 70 BE TESTED 
:BR_IF NO MM 


SET UP RETURN ADDRESS FROM TRAP 
BEGIN CHECKING ABOVE 28K 


SEQ 0017 


CZMMLCO_ MF11S-K_MEM DIAG 


CZMMLC.P11 


459 


17=MAR-80 10:47 


000671 
062706 
022701 
001007 
022737 
001403 
004767 
000757 
024341 
020127 


162703 
004767 


012710 
005737 
001035 
004767 
051503 
051104 
012703 
005023 


004767 
012703 
004767 


010401 
062704 


000004 
160000 


007400 
013324 


037776 
013312 
000002 
000004 
013276 
000002 
013264 
000004 
013254 
000352 
000406 
012576 


020122 
036440 


002664 
001014 
000310 
012700 
000322 
012514 
012652 
012416 


012640 
000326 
013244 


000022 


MACY11 yg ts 


172352 


042101 
000040 


6$: 


7$: 


8$: 


TYPSIZ: 


TYPMEM: 


SETSTK: 


4$: 


17-MAR-80 
GIN OF AREA TESTED (+20) WHEN 


1$ 
#4, SP 
#160000,R1 


7$ 
#7400 ,a#172352 
7$ 


PC ,UPMM 
5$ 


-(R3),=(R1) 
R1 437776 
8$ 


PC ,PUTADR 


#4 ,R3 
PC,PUTADR 


HBUSER , (RO) 
@4SPASS 
SETSTK 

PC, TPCRLF 
/CSR ADDR = 


A#DATBUF ,R3 
(R3)+ 
CSRADR, (R3) 


PC;OCTTYP 


PC, STYPE 
1- 


PC,OCTTYP 
M#HIGHTWO,R3 
PC,$GTSIZ 


R4_R1 
#18. ,R4 





2 
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PROGRAM RELOCATES. 


:RESTORE — POINTER 

;1F Ri DI T READ THE HIGHEST 
sLOCATION POINTED TO BY PAR6, 

; on tee MS11K. 


2G 
: CHECK PARS FOR MAX 
NOT DONE UPDATE MEM MGMT. 


:CAUSE R3 TO POINT TO SMAXM AND 
:R1_ TO MAX AVAILABLE MEMORY 
MEANS WE MOVED INTO PAR2 

:1F WE DID WE MUST ADJUST ADDRESS 
RESTORE R1 

PUT AWAY ORIGINAL ADDRESS 
SADJUST BITS 15-0 

:POINT TO HIGHADD 

PUT IT AWAY 

; ADJUST 

zAND CONTINUE TO TYPE THE SIZE 
PLACE ADDR_IN R1 AT LOCATIONS 
7SMAXM AND SHIMAX 

:POINT TO HIGHADD 

SPLACE ADDR IN R1 AT HIGHADD & HIGHTWO 


SET UP VECTOR FOR FUTURE TRAP 
ZONLY CARE ABOUT FIRST PASS 


7BR 
PRINT ROUTINE 


NEED A LOCATION TO PRINT FROM 
:CLEAR HIGH ORDER BITS 
;ADDRESS TO BE TYPED 

ONE WORD TO BE TYPED 

7 TYPE THE 


HE WORD 
[POINT R3 TO LOWEST AVAIL MEM 


TYPE <CR><LF> 
TYPE LOW TEST ADDRESS 
2 (LOWTWO + LOWADD) 


a s TYPE , o° . 


TYPE HIGHEST TEST ADDRESS 
+ CHIGHTWO + HIGHADD) 

R3_TO HIGH ORDER BITS OF HIGH MEM 
GET THE BITS 13-17 ON TOP ADDRESS 
PLACED IN BITS 0-4 OF R2 
; MENDPROG 


sAPPEND THE ERROR STACK FOR MEMORY 


SEQ 0018 


CZMMLCO_MF11S-K_MEM DIAG 


CZMMLC.P11 


17-MAR=80 10:47 


012703 
005723 


001003 
021305 


000304 


157776 


157776 
000002 


013250 
000276 
000042 
000042 
005674 


000344 
013174 
000320 
000322 


157776 
010000 
012072 


010044 


177776 


MACY11 30A(1052) 


000336 


000046 


000564 


6$: 


SAVLDR: 


2$: 


4$: 


TSTREL: 
TSTSIZ: 


1$: 


2s: 


3$: 
4$: 


6$: 


17-MAR-80 


Re 


4$ 
R4 ,AAENDSTK 
(Ri)+ 


G 2 
10:48 PAGE 
BEGIN OF AREA TESTED (+20) WHEN 


12 


PROGRAM RELOCATES. 


; UNDER TEST TO END OF PROGRAM 
:R2 = # OF 4K BANKS 


‘SAVE ADDR OF END OF ERROR STACK 
CLEAR THE ERROR STACK 


R1,R4 r 

6 

#157776, a#MAXMEM; SET MAXMEM TO MAX VIRTUAL ADDRESS 

(R3) + [TESTING MEM MGMT?(READ LOC $HIMAX) 

SAVLDR SYES, SAVE LOADER 

(R3),#157776 BETWEEN 28K = 32k ? 

SAVLDR ‘BR IF YES 

(R3) ,2(R3) SOTHERWISE MAKE CONTENTS OF MAXMEM 
[EQUAL TO MAX AVAIL MEMORY AND 
[FALL THRU TO SAVE LOADER. 

PC, CLRMM ‘DISABLE MM 

(RS)¢ [POINT R3 TO LOC MAXMEM 

#276.R5 :GOING TO SAVE 300 BYTES 

an2 SRUNNING UNDER ACT OR XXDP 

2$ ‘IF NOT GO TO 2$ 

a442,and6 [XXDP CHAIN MODE 


#<1502.*2>,R5 
(85) (Rds 


2 
(R3) +, (R3)+ 
R4, (R3)+ 


RS, @A#SAVR5 
PC,CLRMM 


QAM INMEM ,R4 
-(R5) 
#LOWTWO,R3 
(R3)+ 

2s 

foo) MSIE 
#10000 ,aSwR 
3$ 


PC,FATERR 


TSTMM 
ae (R3)+ 


6 
-2(R3) ,R4 
(R3)+ 


9$ 
(R3) ,R5 


:SAVE 1500. WORDS FOR XXDP CHAIN 


SAVE MAXMEM INTO SAVMAX 
:SAVE CONTENTS OF R4 INTO SAVR4 


;SAVE HIGHEST VIRTUAL ADDR +2 
: DISABLE MEM MGMT UNIT 
“MAKE MINMEM THE LOWEST TEST ADDRESS 

SET RS TO HIGHEST VIRTUAL ADDR. AGAIN 

SPREPARE TO LOAD R4 & RS W 

‘THE men BOUNDARIE 

LIF BITS 17 & 16 OF LOWEST ADDRESS ARE NON 0 
SIF HIGHER THAN 157776 GO ENABLE MM 

;1S MEM MGMT SELECTED 


s YES, 
2 *ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 


p**eee ERROR NUMBER 4eeenne 


:GO TEST MEM MGMT 


sPOINT R4& TO LOWEST LOC UNDER TEST 
:1S ors 17 & Ee inn ee LOC TO BE 


TESTED ARE 

:1F SO, T 

SOTHERWISE SEE IF HIGHEST ADDR. TO BE 
TESTED IS HIGHER THAN 157776 


SEQ 0019 


CZMMLCO_MF11S-K_MEM DIAG 
17-MAR-80 10:47 


CZMMLC.P11 


012212 


012032 


000340 
000002 


000312 
000464 
177740 
000021 
011762 
000320 
013202 
000402 
000004 


012140 
042440 


MACY11 ue 


9$: 


10$: 
MEMTST: 


CLRMEM: 


000420 3$: 


051122 
042522 
020103 
041505 
052123 


051524 


4$: 
000300 CONT: 


H 2 
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GIN OF AREA TESTED (+20) WHEN PROGRAM RELOCATES. 


-ASC1Z 
-EVEN 
MOV 


MOV 
MOV 
MOV 


9$ IF $0, GO TO 9$ 

(R3) RS “MODIFY R 

R R5 71S Low LIMIT LOWER THAN HIGH LIMIT 

PC ,FATERR ;*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 
y**eekERROR NUMBER Sakekne 

ASAVMAX ,R3 

(R3) ,-(R3) ;RESTORE CONTENTS OF MAXMEM 

#2, (R3) :MAKE THE CONTENTS OF MAXMEM= 
[MAX AVAIL MEM+#2 

(R5)+ ‘SET RS=MAXMEM +2 


: INIT BAKPAT AND SWAPAT 
SAND CONTINUE TO CLEAR ACTIVE 
3 CHUNK OF MEMORY UNDER TEST 


ABAKPAT ,R2 

(R2)+, (R2) ;COPY IT INTO SWAPAT 

(R2) [SWAP THE BYTES 

aSwR,R2 :GET BITS IN SW REG 

#177740,R2 ZONLY WANT THE TEST NUMBER FOR LOOPING 

#21,R2 SCANT T BE HIGHER THAN 20 

PC ,FATERR < SERRORS REPORT ERROR MESSAGE AND HALT AT FATHLT 
y*«ekkkERROR NUMBER 6xk kane 

@4MINMEM,R1 iGET FIRST TEST Loc IN SLICE 

PC, TSTADD ;CHECK FOR ERROR FREE TEST ADDRESS 

R3 [R3 = 0 MEANS ERROR FREE LOC FOUND 

4$ :BR AND SAVE IT 

ECCDIS,@CSRADR :ECC DISABLE 

#4,R1 ZNEXT WORD 

R1.R5 SEND OF SLICE YET ? 

2s" : F NOT 


PC, TPCRLF sPRINT ROUTINE 
/NO ERROR FREE LOC FOR ECC TESTS/ 


<15><12>/BEGINNING AT TST13/ 


#13,R2 START AT TST13 
CONT 


R1,@4M1NMEM SET UP_TEST LOC 
8+ pematamameae : INHIBIT ECC 


SEQ 0020 


I 2 
CZMMLCO MF11S-K_MEM DIAG MACY11 goa 17-MAR=80 10:48 PAGE 14 
CZMMLC.P11 17-MAR=80 10:47 GIN OF AREA TESTED (+20) WHEN PROGRAM RELOCATES. SEQ 0021 


005040 5$: -(RQ) BEGIN CLEARING FROM TOP 
B2-A6 :TO BOTTOM 


000264 @CSRADR RESTORE CSR , 
ENTER HERE FROM TSTSCP ROUTINE AT END OF EACH TEST 


000302 O4PASFLG e INIT SOFTEST PASS FLAG 
000404 MOVB R2,Q4$TESTN SET UP $TESTN WITH THE TEST 
000254 R2,@DISPLAY “NUMBER TO BE EXECUTED & DISPLAYED 


000244 LOOP: @CSRADR ; 
004000 000240 B #4000 ,aSWR SEA iF to PRINTOUT OF SBE'S(INH ECC) 


000210 000226 ECCDIS,@CSRADR “YES. INHIBIT ECC 
1$: R4,R1 : LOWEST ADDRESS UNDER TEST 


000376 R3_ TO SCRATCH Abe 
012406 PC ,PUTADR 


-(R3) sPOINT R3_ TO 
012504 PC,$GTSIZ PLACE BITS hed OF ADDRESS BITS 
; INTO 0-4 OF 
R4,RO :PLACE ADDRESS OF LOWEST LOC 
R4,R1 


R4 oR3 
(SP)+,R2 {RESTORE R2 
R2 DOUBLE IT 


PC.R2 

TBL~. (R2) ,PC :GO TO 7 # STORED IN BITS 
:3-0 ae WITC 

;RELATIVE ADDRES 

RELATIVE 
sRELATIVE 
RELATIVE 
:RELATIVE 


-2 St BINION EAI O 


” “n n“n 
BABBSABsssssggssgsggy 
NOUSWN oO 


; E 
RELOC-TBL RELATIVE ADDRESS 


: SCOPE gh: 
PROG COMES HERE AFTER EACH TEST AND 


e 
e 
° 
e 
. 
a 
° 


F 
DEF INED BY SR BITS <3:0>, ELSE GO ON 





CZMMLCO_MF11S-K_MEM DIAG 


CZMMLC.P11 


683 


SECs 


SIVAYIAY 
OARWN=5 


717 


002732 
002734 


17-MAR-80 10:47 


005077 
105737 
001002 
004767 
113702 

37 


177570 
177570 


122737 
001403 
004767 
000007 


000116 
000420 


013252 


040000 


177536 


MACY11 ya t 


2 
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EGIN OF AREA TESTED (+20) WHEN PROGRAM RELOCATES. 


TSTSCP: oer 


STB 

BNE 

JSR 
CNTSCP: MOVB 

INC 

BIT 

BEQ 
SWHALT: HALT 

TSTGO: a 
INCB 

JMP 
DATBUF: .WORD 
TSTDAT: WORD 
SBEMSK: .WORD 
MSK: .WORD 
DATSAV: .WORD 
ECCDIS: .WORD 
DIAGA: .WORD 
MSYES: .WORD 
LDFLG: .WORD 
BASE: . WORD 
SAVMIN: WORD 
ERRFLG: .WORD 
INHREL: .WORD 
CSRADR: 172136 


; TO NEXT TEST. 


@CSRADR ; 
NV RUNNING UNDER APT? 
CNTSCP :1F SO GO TO CNTSCP 
PC, CHECKC sTEST FOR CTRL=C_AND IF TYPED 
[GO_TO ERROR HISTORY AND HALT 
@YSTESTN,R2 ;PUT TEST NUMBER IN Re ? BYTE 
@4$DEVCT TELL APT EVERYTHING'S OK 
#2000 ,@SWR HALT AFTER EACH TEST? 
TSTGO BRANCH IF NOT HALTING 


—_ LOOP ON TEST DESIRED? 


ko YES, GO START SAME TEST 

CONT GO CONTINUE EXECUTING NEXT TEST 
0,0 

0.0 

0.0 

0.0 

0.0 

2 

4 

0 

0 OFFSET FOR RELOC 

100000 :TO SAVE MINMEM FROM RELOC 

0 FLAG TO INDICATE FIRST ERROR FOR HEADER 
0 FLAG TO INDICATE NO RELOCATION ALLOWED 


DEFAULT CSR ADDRESS 


TAA RRR EREEEEEEEEEEEEEEEEEREEREREREEEEREEEEKEEEKEREE 


SWR: 177570 
DISPLAY:177570 
3*(1) 


z9 
3*(2) 


000000 000404 TSTO: os 


011274 


: CHANGES TO SWREG IF NO HARDWARE SWITCH REGISTER 
: CHANGES TO DSPREG IF NO HARDWARE DISPLAY REG 


THIS TEST ASSUMES THAT THE MEMORY IS IN A STATE 
OF ALL 0°S AND RO HAS THE ADDRESS OF THE LOWEST 
LOCATION UNDER TEST 


ir CHECKS FOR PROPER BANK SELECTION BY WRITING 
1°S_IN A LOCATION AND CHECKING oe O'S IN THE SAME 
LOCATIONS OF OTHER 4K _ BANKS OF THE MEMORY 

CI.E. LOCATIONS LIKE 7766 AND 27766 ETC.J 


1,” Tented CHECK FOR PROPER TEST SEQUENCE 


PC, SEQERR ;*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 
+ eaeee ERROR NUMBER 7enan% 


SEQ 0022 


CZMMLCO MF11S-K_MEM DIAG 
17-MAR=80 10:47 


CZMMLC.P11 


Aap 
01 


0014 
020311 


001004 
012767 
000403 
012767 
010046 
105237 
000407 
020311 
001411 
012767 


177777 


000001 
011140 


177512 


2 
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177542 


000002 


1$: 
2$: 


#177777 ,R3 
R4,R1 
R3, (RO) 
RO,R1 
(R1) 

5$ 
R3,(R1) 
3$ 
#10,12$ 


10$ 
#11,12$ 


RO,-(SP) 
OPSADERR 


#12,12$ 
RO,-(SP) 
R3,RO 
PC,,ERROR 
(SP)+,RO 
@ASAVRE, SP 
#20000,R1 
R1,R5 

2s 


SEQ 0023 


:R1 = ADDRESS OF en pee OF MEMORY UNDER TEST 


SAME MEMORY LOCATION AS R1 
E CHECK FOR ALL 1°S AT (R1) 


3 CAS 
SOTHERWISE CHECK (R1) FOR ALL 0°S 


:IF_ R1 IS NOT op TO RO AND (R1) 
DOES NOT CONTAIN ALL 0°S THEN 
CHECK TO SEE tf (RO) = (R1) 


y**#*kERROR NUMBER 10 «ane 


3 *****kERROR NUMBER 11**«0% 


:SAVE RO ON STACK 
:AN ADDRESSING ERROR IS SUSPECTED 


CHECK (R1) FOR ALL 1'S 
y***kERROR NUMBER 12e««% 
:SAVE RO ON STACK 


GO TO THE ERROR SUBROUTINE 
;ERROR NUMBER TO BE REPORTED WILL BE PLACED HERE 
RESTORE RO 


RESTORE THE STACK POINTER 

:CAUSE R1 TO POINT Ls 4 SAME CHIP 
LOCATION IN THE NEXT 4K BANK OF MEMORY 

BY ADDING 1 TO THE 14TH BIT OF ADDRESS IN R1 
COMPARE R1 WITH THE HIGHEST MEMORY 

LOCATION WHICH IS STORED IN 


RS 
IF R1 LESS THAN RS THEN REPEAT THE TEST FROM 2$ 


TSTSCP 

: INITIAL oa TEST 

: THIS TEST CHECKS THE DI/DO LINES BY 
: SHIFTING A 1 THROUGH THE WORD. 


#1 ,AMSTESTN 
. 
PC, SEQERR 


QM INMEM,R1 


pare ,(R1) 
DATBUF ,RO 


CHECK FOR PROPER SEQUENCE 
BR IF OK 


2 *ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 
y*keeexeERROR NUMBER 13ennn08 


GET TEST ADDRESS 
SET THE FIRST TEST BIT 
:CLEAR 2ND WORD 


LEAR 
;WRITE TEST WORD 1 
TEST WORD 2 
NOW READ THE 
:BR_IF FIRST 16 OK 
GET GOOD DATA FOR ERROR MSG 





CZMMLCO_MF11S-K_MEM i~, 
CZMMLC.P11 


BESR Saco eases | 


00 C0 C0 00 C0 00 Co 
anh aah anh ath ood aa aa 
AUSWN—O 


17-MAR~80 


004767 
000014 


peers) 
5 


10:47 
010362 


177502 


177472 
010340 


177460 
010140 


177776 
177777 


177402 


177374 
010244 


177364 


177354 
010222 


077777 
000002 
000002 


020000 


177222 


MACY11 ye 


000002 


177436 
177432 


000002 


000002 


000002 


2 
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BEGIN OF AREA TESTED (+20) WHEN PROGRAM RELOCATES. 


4$: 


5$: 


6$: 


66$: 


7$: 


8$: 


END1: 


JSR 
14 


PC,,ERROR 2 *ERROR* REPORT ERROR MESSAGE 
p*skeeeERROR NUMBER 14%enann 


DATBUF +2,2(R1) + NOW Po SECOND WORD 
DATBUF +2 ,,RO GOOD DATA FOR ERROR MSG 


PC,ERROR ; *ERROR* REPORT ERROR MESSAGE 
+ &e##* ERROR NUMBER 15 ««ana% 


DATBUF +2 HAS LAST BIT BEEN TESTED ? 
6$ ;MINUS MEANS BIT 31 
R5,DASHL NO, SHIFT TEST BIT LEFT 
DATBUF ZIN DAT. 

2s :GO WRITE NEW TEST DATA 


NOW _GOING TO SHIFT A 0 _IN DATA DIRECTION 
#177776, DATBUF PU T 

#-1, ae TBUF+2 = 3 AND 
MDATBUF ,R2 :LOC OF WRITE DATA 


= 
-—> 


BASE ,R2 sOFFSET IT a. = OF RELOC 
DATBUF , (R1) sWRITE THE DAT 

DATBUF+2,2(R1) 2 WORDS WORTH 

rene ae oe FIRST WORD 

DATBUF ,RO :GOOD DATA 

PC,ERROR *ERROR* REPORT ERROR MESSAGE 


p**xkeexeERROR NUMBER 16%%xn%8 


DATBUF +2,2(R1) eNOW, — SECOND WORD 


DATBUF +2 ,RO GOOD DATA 
PC,ERROR : *ERROR* REPORT ERROR MESSAGE 
+ kk e**kERROR NUMBER 17**xxxx% 


#77777 ,2(R2) TESTED BIT 31 YET? 
10$ BR IF YES, WE'RE DONE 
2(R2) SHIFT DATBUF 

(R2) AND DATBUF +2 


SET CARRY FOR NEXT ROL 


9$ 
2(R2) 


66$ ;KEEP GOING 

#20000,R1 ;NEXT 4k BANK 

R1,R5 :COMPARE AGAINST HIGHEST VIRTUAL MEM 
TSTSCP 


:TEST2 THIS TEST CHECKS TO SEE THAT EACH ADDRESS 
: BIT IN EACH 4K BANK CAN BE ASSERTED UNIQUELY. 


SEQ 0024 


2 
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; IT CHECKS FOR ADDRESS BITS THAT MAY BE STUCK 
: HIGH, STUCK LOW OR STUCK TOGETHER. 


122737 000002 000404 TST2: Ah —_— CHECK FOR PROPER TEST SEQUENCE 


001403 
004767 010646 PC, SEQERR ;*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 
000020 20 TeeeeeERROR NUMBER 20e8x xe 


012701 040000 : MO #40000 ,R1 : 
005000 RO : 
7SAVE START yg 
ceAe OF. A_LOCATION 
“fF Pw SLICE YET ? 
“RESTORE R1 NOW 
sSET FIRST BIT 
:POINT R1 TO FIRST BYTE 
;READ AND COMPARE FOR ZEROS 
3$ 7BR IF Ok 
PC,ERROR 7*ERROR* REPORT ERROR MESSAGE 
y*xkkekERROR NUMBER 21e%x%0% 
RO ;FOR ERROR MSG 
(R1) ; COMPLEMENT THE BYTE 
(R1) ;READ FOR NON ZEROS 


4$ :BR IF OK 
PC,ERROR :*ERROR* REPORT ERROR MESSAGE 
yeeeeekERROR NUMBER Q2eunann 


~, MASK _OFF THE ~ 1 gh BIT 
R2,R1 

(R1) 

5$ READ FOR ZEROS 


RO 
PC,ERROR ¢ SERROR® REPORT ERROR MESSAGE 
p*xeexxERROR NUMBER 23enn«n8 


RO 3 
(R1) ;COMPL THE WORD 
(R1) sREAD IT AGAIN 


6$ 
PC,ERROR 3 *ERROR* REPORT ERROR MESSAGE 
yx*eeeekERROR NUMBER 24ennnne 


o10008 Me 2 CHECK FOR MSB IN 4K BANK 


R2,R1 
#20000,R1 
R1,R5 


2s 
TSTSCP 


;TEST 3 THIS TEST CHECKS FOR PROPER 
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000003 000404 TST3: 
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122737 
001403 
004767 010466 
000025 
010446 
013702 000320 
010203 
062702 000004 
012713 177777 
012763 177777 
105013 
013701 000320 
20201 
001456 
020301 
001022 
122711 000000 
1415 
012700 000377 
032701 
1001 
010146 
042701 000001 
004767 007656 
000026 
012601 
005201 
752 
122711 177777 
001425 
010 
042704 177775 
030104 
001003 
pigi we 177777 
012700 000377 
032701 000001 
001401 
000. 
010146 
042701 000001 
004767 007572 
000027 
012601 
005201 
720 
112713 177777 
5203 


MACY11 ype ts 


000002 


1$: 


2$: 


3$: 


9$: 


6$: 
4$: 


12$: 


10$: 


7$: 
5$: 


17-MAR-80 
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GIN OF AREA TESTED (+20) WHEN PROGRAM RELOCATES. 
; BYTE ADDRESSING. 
| Seana : CHECK saree PROPER SEQUENCE NUMBER 
PC,SEQERR  ERROR® REPORT ERROR MESSAGE AND HALT AT FATHLT 
+ #8 #* KERROR NUMBER 25 etn 
R4,-(SP) 7 SAVE Ro 
@AMINMEM ,R2 MINMEM IS LOWEST ADDRESS 
oR3 ;PUT IT iN R R3 ALSO 
#4 ,R2 :POINT R2 TO LAST BYTE +1 
#-1, (R3) [WRITE ALL ONES IN 
#-1,2(R3) 7 THE 4 TEST BYTES 
(R35 :CLEAR A BYTE 
QAM INMEM ,R1 i gh eg R1 FOR EACH PASS 
2,R1 F EQUAL, JUST READ LAST BYTE 
“BR IF EQUAL 
R3,R1 1S THIS THE BYTE OF ZEROS 
4$ 3;BR IF NOT 
#0,(R1) :1T IS, COMPARE FOR ZEROS 
#377 RO ;SET UP LO BYTE 
#1,R1 WHICH BYTE ARE WE TESTING ? 
;L0 BYTE RO IS OK 
RO HIGH BYTE, MAKE RO RIGHT 
R1,-(SP) ;SAVE R1 
#1,R1 sFOR PRINTOUT 
PC,ERROR ;*ERROR* REPORT ERROR MESSAGE 
+ eee KERROR NUMBER 26*%%«%8% 
(SP)+,R1 sRESTORE R1 FOR FURTHER TESTING 
R1 sNEXT BYTE 
3$ sRETURN 
tee 7I1TS NOT THE BYTE OF O'S, READ 1°S 


RO 
R1,-(SP) 
#1,R1 
PC,.ERROR 
(SP)+,R1 
R1 


3$ 
#~-1,(R3) 
R3 


:GET ne Eat 

:TO FIND BYTE 

1S IT Ser IN TEST ADDRESS ? 

NO, BRANCH CAUSE IT'S NOT IN SAME WORD 
ALL ONES 


VE R1 
FOR PRINTOUT 
: *ERROR* REPORT ERROR MESSAGE 
p**keeeERROR NUMBER 27exxnnn 


RESTORE R1 
;MOVE TO NEXT BYTE 


“RESTORE 1°S TO BYTE JUST TESTED 
INC TO NEXT BYTE 


SEQ 0026 


B 3 
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963 020302 CMP R3,R2 WAS THAT JUST THE LAST ONE? 
964 001310 BNE : F 

012604 MOV (SP) +,R4 sRESTORE R4 

000167 : = =JMP TSTSCP 


+ STATUS REGISTER RESPONSE 

THIS TEST INSURES THAT THE MS11K 
ICSR RESPONDS AND THAT — BIT 
3CAN BE WRITTEN UNIQUELY 


igelae 000004 : — i ,AASTESTN ;TEST FOR PROPER TEST SEQUENCE 
4 
004767 010234 PC,SEQERR ;*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 
000030 0 j*kkeeeERROR NUMBER 30eaanee 
012702 00404 : #2$ ,R2 
06670 BASE ,R2 sOFFSET FOR RELOC 
R2,a44 
#172136,R1 :FOR ERROR PRINTOUT 
@CSRADR TRY ACCESSING CSR 
TIF WE GOT HERE ALL IS WELL 
PC,FATERR :*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 
peeeeeeERROR NUMBER 31] «enna 


SET FIRST TEST BIT 


#1,RO 

ABUSER , 044 7SET UP FOR FUTURETRAPS 
LDFLG RUNNING IN MEM UNDER TEST? 
$ :YES, BRANCH TO 5$ 
Sette NO, CHECK FOR UNUSED BITS 


8$ 
| ‘aati ,RO 3 


neg @CSRADR sWRITE THE TEST BIT 

RADR ,R2 2GET CSR_ CONTENTS 
#30, Re sSINGLE ERRORS WILL CONFUSE US 
ene READ AND COMPARE 


PC, ERROR 2 *ERROR* REPORT ERROR MESSAGE 
sekeekeERROR NUMBER 32eannne 


Se858 
RREE RREEREES 


aS a 


RO SHIFT TO NEXT BIT 
4$ [CONTINUE TESTING THRU BIT 15 
33777 eat FOR ANY FUTURE TRAPS 


SINGLE BIT ERROR TEST 

:THIS TEST FIRST CHECKS FOR UNCORRECTED DATA 
sWITH THE INH ECC BIT SET, atte THAT THE SINGLE 
ERROR INDICATE OCCURRED do ae WITH ECC 
sENABLED, CHECKS FOR CORRECTED DAT 


SEK NKRVTVKK 


— ot ot = 2a a os SS 


lelelelejlelelelele) 
aod and aah anh a oh od oh 
DONAULSWN—O 
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007112 
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#5 @NSTESTIN CHECK FOR PROPER TEST SEQUENCE 


PC, SEQERR s*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 
yeekeekERROR NUMBER 33«xnnne 


s INITIAL oll 

332 BITS WORTH 

INITIAL ERROR MASK 
SBEMSK+2 332 BITS WORTH 
DATBUF , TSTDAT 


DATBUF +2, TSTDAT+2; TO SAVE ORIG DATA 

@APASFL sCOMP DAT AON, SECOND PASSONLY 
‘BR IF FIRST PASS 

TSTDAT :SECOND PASS, COMP BOTH WORDS 

TSTDAT+2 : 


SET UP ADDRESS FOR CHKGEN 
GEN CHECKBITS ON TSTDAT 
tase ROUT INE 


:DATA 
INMEM,R FIRST TEST ADDRESS 
ECCDIS,@CSRADR :FORCE VALIDATE WITH ECC DISABLED 
TSTDAT, (R1)+ sWRITE FIRST 16 BITS 
ECK,RO 3GET CHECKBITS FROM CHKGEN 
7 SET eori'y CHECK A 


TSTDAT+#2, (R1) 
; ITS. WE NOW HAVE CHECKBITS 
:GENERATED ON DATBUF AND DATA WITH 
ONE BIT IN ERROR (AS PER SBEMSK). 
ECCDIS,@CSRADR :DISABLE ERROR CORRECTING 
TSTDAT ,RO SET UP GOOD DATA FOR ERROR REP1. 
Nai ZREAD, THE LOW WORD 


5 IF OK 
PC, ERROR *ERROR* REPORT ERROR MESSAGE 
yx*kkekERROR NUMBER 34ennnnn 


TSTDAT+2,R0 
#2,R1 


HIGH WORD 
. POINT R1 TO SECOND 16 BITS 
RO, (R1) READ THE HIGH WORD 


PC ERROR > *ERROR* REPORT ERROR MESSAGE 
pexekexeERROR NUMBER 35 exnnnn 


@CSRADR sENABLE ECC 

R2,R :THIS IS ORIGINAL DATA 

RO,-(R1) SEE IF ITS BEEN CORRECTED 

57$ T SHOULD HAVE BEEN 

PC ,,ERROR + *ERROR®* REPORT ERROR MESSAGE 
y*eeeekERROR NUMBER 36eennn8 








3 
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1074 004430 032777 000020 176272 57$: BIT #20, @CSRADR sCHECK IF SBE INDICATE SET 
1075 004436 001011 BNE 58$ :BR IF IT IS SET 
1076 004440 010146 MOV R1,-(SP) R1 
1077 004442 016701 176262 MOV CSRADR,R1 reer CSR ADDRESS 
1078 004446 012700 000020 MOV #20,RO0. Y RO FOR PRINTOUT 
1079 004452 004767 007062 JSR PC ,ERROR <RERROR® REPORT ERROR MESSAGE 
ie 004456 000037 37 y*eeeeeERROR NUMBER 37exnann 
1082 004460 012601 MOV (SP)+,R1 :RESTORE R1 
1083 004462 005077 176242 58$: CLR @CSRADR ;RESTORE CSR 
1084 004466 010300 MOV R3,RO “HIGH WORD 
1085 004470 062701 000002 ADD #2,R1 [POINT TO HIGH WORD 
1086 004474 020011 CMP RO, (R1) 7SEE IF ITS BEEN CORRECTED 
1087 004476 001403 BEQ 9$ [BR IF OK 
1088 004500 004767 007034 JSR PC, ERROR s*ERROR* REPORT ERROR MESSAGE 
1089 004504 000040 40 peeeeeERROR NUMBER GO nanan 
1091 004506 032777 000020 176214 59$: BIT #20, @CSRADR :SBE BIT SET ? 

1092 004514 001010 BNE 60$ ‘BR IF YES 

1093 004516 010146 MOV R1,-(SP) 7SAVE R1 

1094 004520 016701 176204 MOV CSRADR,R1 [GET ADDRESS OF CSR BEING TESTED 
1095 004524 012700 000020 MOV #20,RO :FOR PRINTOUT 

1096 004530 004767 007004 JSR PC ERROR :*ERROR® REPORT ERROR MESSAGE 
1097 004534 000041 41 i *ek**eRERROR NUMBER 4] tenn 
1099 004536 005737 000406 60$: TST @a¥SPASS 

1100 004542 001425 BEQ ENDS 3Q V ONLY ONE ITERATION 

1101 004544 005767 176126 TST SBEMSK +2 :TEST FOR LAST MASK BIT 

1102 004550 100404 BMI 65$ MINUS MEANS BIT 31 

1103 004552 004567 006576 JSR R5,DASHL :SHIFT LEFT ROUTINE FOR 32 BITS 
1104 004556 002674 .WORD  SBEMSK WORD TO BE SHIFTED 

1105 004560 17 30$ 

1106 004562 005767 176100 65$: TST DATBUF +2 ZLAST DATA BIT ? 

1107 004566 100404 BMI 70$ WHICH IS BIT 31 

1108 004570 004567 006560 JSR R5, DASHL :SHIFT IT 

1109 004574 002664 .WORD DATBUF : 

1110 004576 000603 BR 20$ 

1111 0046 105737 000302 70$: TSTB  @#PASFLG :FIRST OR SECOND PASS ? 

1112 004604 001004 BNE ENDS NON ZERO MEANS WE'RE DONE 
1113 004606 105237 000302 INCB  ~— @#PASFLG “NOT DONE, GO DO SECOND PASS 
1114 004612 000167 177356 JMP TSA 

1115 004616 000167 175764 ENDS: JMP TSTSCP 

1116 ;SINGLE BIT ERROR TEST TO INSURE THAT A WRITE 
1117 7BYTE CLEARS SINGLE BIT ERRORS. 

1119 004622 122737 000006 000404 TST6: CMPB #6, a#$TESTN :CHECK FOR PROPER TEST SEQUENCE 
1120 004630 001403 BEQ 1$ 

1121 004632 004767 007410 JSR PC, SEQERR 7*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 
1122 004636 000042 42 pe****RERROR NUMBER G2taaeee 
1124 004640 010701 1$: MOV PC,R1 :GET PC 

1125 004642 012700 005534 MOV #END6,RO ‘END OF THIS TEST 

1126 004646 066700 176046 ADD BASE ,RO :FOR OFFSET 

1127 004652 005711 2$: TST (R1) sREAD A LOC 

1128 004654 032777 000020 176046 BIT #20, aCSRADR [LOOKING FOR SBE'S IN THIS TEST 
1129 004662 001403 BEQ 3$ 7BR IF NO ERROR 
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BEGIN OF AREA TESTED (+20) WHEN PROGRAM RELOCATES. 
INC T6FLG Z INDICATE WITH FLAG 
BR 4$ BRANCH 
3$: ADD #4,R1 [MOVE TO NEXT WORD 
CMP R1,RO ZEND OF TEST 6 YET ? 
BLO [NO, BRANCH 
4$: JSR R4,SAVOTS TSAVE REGS RO TO R4 
CLR @CSRADR :CLEAR CSR 
MOV #1, DATBUF 3 INITIAL DATA 
CLR DATBUF +2 132 BITS WORTH 
T6A: MOV #1, SBEMSK * INITIAL ERROR MASK 
CLR SBEMSK +2 132 BITS WORTH 
T6B: MOV DATBUF,TSTDAT :SAVE ORIGINAL DATA 
MOV DATBUF +2, TSTDAT+2;BOTH WORDS 
MOV DATBUF ,DATSAV IN CASE PROG HAS SBE 
MOV DATBUF +2 ,DATSAV+2 :DITTO 
MOV #TSTDAT, SOURCE ;NEED ADDRESS FOR CHKGEN 
JSR PC, CHKGEN ZGENERATE CHECK BITS 
JSR R5.BITCOM BIT COM ROUTINE 
-WORD  SBEMSK K FOR COMPLEMENTING 
“WORD  TSTDAT :WORD TO BE COMPLEMENTED 
30$: MOV @ayMINMEM,R1 [FIRST TEST ADDRESS 
MOV R1,R4 :PUT IT IN R4 ALSO 
MOV ECCDIS @CSRADR S INHIBIT ECC 
MOV TSTDAT, (R4)+ WRITE 16 BITS 
MOV CHECK ,R3 :GET CHECKBIT 
BIS DIAGA, RS :SET DIAGNOSTIC A BIT 
MOV R3,aCS ‘LOAD CSR WITH NEW IMAGE 
MOV TSTDATSO. CRG) :WRITE HIGH WORD+CHECKBITS 
CLR @CSRADR :1T'S DANGEROUS IF WE DON 
MOV ASBEMSK ,R2 ZADDRESS OF ERROR MASK 
ADD BASE ,R2 
SUB #2,R4 “ADJUST ADDRESS 
40$: MOVB #1, (R4) :WRITE A BYTE OF 1°S 
BITB = #=1. (R2) : 
BEQ 60$ 
TST T6FLG “SINGLE ERRORS IN TST6 AREA ? 
BNE 45$ [BR IF YES 
CLR @CSRADR :CLEAR CSR 
TSTB ~—s_ (R&) 
BIT #20,@CSRADR ; SINGLE ERROR INDICATE SET ? 
MoV CSRADR.R1 [FOR PRINTOUT 
JSR PC,ERROR :*ERROR*® REPORT ERROR MESSAGE 
43 px*eteeERROR NUMBER 43xnnane 
BR 50$ CONTINUE 
45$: MOV R4,-(SP) [NEED A SCRATCH LOC 
SUB @sMINMEM,(SP)  :TO FIND BYTE OFFSET 
MOV ADATSAV,R3 [GET ADDRESS 
ADD BASE ,.R3 [OFFSET FOR RELOC 
ADD (SP) +,R3 ‘ADD BYTE COUNT 
MOVB = #=1,, (R3) SWRITE BYTE OF 1°S LIKE TEST LOCATION 
V DIAGA,@CSRADR :DIAG BIT 
TSTB —s_ (RG) SREAD THE BYTE TO GET THE CHECKBITS 


SEQ 0030 
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005570 


175414 
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50$: 


60$: 


65$: 


70$: 


80$: 
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@CSRADR,R3 
#170037,R3 
@CSRADR 
ADATSAV, SOURCE 
PC, CHKGEN 

R3. CHECK 

50$ 
R3,RO 
#CHECK,R1 
BASE ,R4 
PC, ERROR 


#~1,(R4) 
70$ 


PC; ERROR 
T6OFLG 

65$ 

(R4) 

#20, @CSRADR 
50$ 
PC,,ERROR 
70$ 
R4,-(SP) 


@AMINMEM, (SP) 
a 


DIAGA, @CSRADR 
SCSRADR, -(SP) 
@CSRADR 
#170037, (SP) 
AMDATSAV , SOURCE 
PC, CHKGEN 
(SP) +, CHECK 
70$ 

PC,.ERROR 
#~1,(R2) 

80$ 

R2 

R4 
@4MINMEM,R1 

#2 RS 


#2,R1 
4 


0 
a4#$PASS 
100$ 
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24 
PROGRAM RELOCATES. 


GET CHECKBITS 
CLEAR OTHER BITS 


:FOR_CHKGEN 
:GENERATE CHECKBITS 
RIF OC VS. EXPECTED 


:GOOD_ DAT. 

ADDRESS OF CHECKBITS 
PLUS OFFSET 

ERROR ROUTINE 


sCHECK DATA 

5 IF OK 

GET R4 

3TO MAKE EVEN ADDR FOR PRINTOUT 


2 *ERROR* REPORT ERROR MESSAGE 
y*tkeekERROR NUMBER 44nnnnnne 


SINGLE ERRORS IN TST6 AREA ? 
IF YES 


BR IF OK 
" RERROR® REPORT ERROR MESSAGE 
p**eeeeERROR NUMBER 45xxxnee 


; CONT INUE 


2 SAVE R4 

FOR BYTE OFFSET 
sADDRESS OF DATA 
:FOR meee 

:ByTE OF F SET 

WRITE A Bae OF 1°S 
AG 


GENERATE CHECKBITS ON DATA 
ne ACTUAL VS. EXPECTED 


: OK 
ERROR ROUTINE 
CHECK FOR LAST BYTE 


MOVE TO NEXT BYTE 

FIRST TEST ADDRESS 

TEST Sw a 

:BR IF IT'S LOW 16 BITS 

;ADJUST POINTER FOR ERROR REPT. 
FIRST PASS ? 

BR IF YES 


SEQ 0031 
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1242 005464 005767 175206 TST SBEMSK +2 :LAST ERROR BIT ? 
1243 005470 100405 BMI 90$ MINUS MEANS BIT 31 
1244 005472 004567 005656 JSR R5, DASHL “DOUBLE ARITHMETIC SHIFT LEFT 
1245 005476 002674 “WORD  SBEMSK SON THE ERROR MASK 
1246 005500 000167 177232 JMP 168 
1247 005504 005767 175156 90$: ‘TST DATBUF +2 :LAST DATA BIT ? 
1248 005510 100405 BMI 100$ ‘MINUS = BIT 31 
1249 005512 004567 005636 JSR R5,DASHL 
1250 005516 002664 “WORD  DATBUF ;SHIFT IT LEFT 
1251 005520 000167 177200 JMP T6A 
1252 005524 004767 005610 100$: JSR PC ,RSTOTG RESTORE REGS RO TO R4 
1253 005530 005067 000004 CLR TéFLG [FOR NEXT TIME 
1254 005534 000167 175046 END6:  JMP TSTSCP 
1258 005540 000000 T6OFLG: .WORD 0 
1257 [DOUBLE BIT ERROR FORCE TO CHECK DOUBLE ERROR 
1258 [STATUS BIT AND TRAP THROUGH LOCATION 114. 
1260 005542 122737 000007 0004604 TST7: CMPB  #7,a#STESTN 
1261 005550 001403 BEQ 1$ 
1262 005552 004767 006470 JSR PC, SEQERR y*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 
1263 005556 000046 46 #ek*ekERROR NUMBER G6eeene 
1265 005560 005077 175144 1$: CLR @CSRADR ICLEAR CSR 
1266 005564 013701 000320 MOV aM INMEM,R1 
1267 005570 004467 005532 JSR R4, SAVOT4 SAVE REGS RO TO R4 
1268 005574 005067 175064 10$: CLR DATBUF [MAKE INITIAL DATA 
1269 005600 005067 175062 CLR DATBUF +2 TALL ZEROS 
1270 005604 012767 000001 175062 20$: MOV #1, SBEMSK ; INITIAL SINGLE ERROR MASK 
1271 005612 005067 175060 CLR SBEMSK +2 SSECOND WORD 
1272 005616 012767 000001 175054 30$: MOV #1, DBEMSK TINITIAL DOUBLE ERROR MASK 
1273 005624 005067 175052 CLR DBEMSK+2 +32 BITS HERE ALSO 
1274 005630 016767 175030 175032 35$: MOV DATBUF,TSTDAT : 
1275 005636 016767 175024 175026 MOV DATBUF #2, TSTDAT+2 
1276 005644 105737 000302 TSTB = @#PAS ;NO COMPLEMENTING FIRST PASS 
1277 005650 001404 BEQ 40$ 
1278 005652 005167 175012 COM TSTDAT :COMP FIRST WORD 
1279 005656 005167 175010 COM TSTDAT+2 ‘SECOND WORD 
1280 005662 005077 175042 40$: CLR @CSRADR 
1281 005666 026767 175002 175004 CMP SBEMSK , DBEMSK : CAN" T HAVE THE SAME ERROR BIT SET 
1282 005674 001004 BNE IN BOTH MASKS 
1283 005676 026767 174774 174776 CMP SBEMSK+2,DBEMSK+2 ZCOULD BE EQUAL IN SECOND WORD 
1284 005704 001502 BEQ 65$ 7GO MAKE THEM NOT EQUAL 
1285 005706 012767 002670 005076 45$: MOV MTSTDAT,SOURCE SOURCE ADDRESS FOR CHKGEN 
1286 005714 004767 005144 JSR PC, CHKGEN [GO GENERATE CHECK BITS 
1287 005720 004567 005460 JSR R5.B1TCOM [FORCE SINGLE ERROR 
1288 005724 002674 -WORD  SBEMSK TAS PER SBEMSK 
1289 005726 002670 “WORD  TSTDAT [ON DATA IN TSTDAT 
1290 005730 004567 005450 JSR R5,BITCOM [FORCING DOUBLE ERROR 
1291 005734 002700 -WORD  DBEMSK ‘THIS MASK INDICATES SECOND BIT IN ERROR 
1292 005736 002670 “WORD TSTDAT : SAME DAT 
1293 005740 016704 005050 MOV CHECK ,R4 GET CHECKBITS 
1294 005744 056704 174742 BIS DIAGA.R4 SET DIAGNOSTIC A BIT 
1295 005750 016777 174734 174752 MOV ECCDIS,aCSRADR :JNHIBIT ECC 
1296 005756 016721 174706 MOV TSTDAT.(R1)*  <WRITE 16 BITS 
1297 005762 010477 174742 MOV R4, aC SRADR [LOAD CSR 
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016711 174700 TSTDAT#2,(R1) ;WRITE HIGH WORD 
5077 174732 @CSRADR ;CLEAR CSR AGAIN 
000002 #2,R1 SADJUST TEST ADDRESS 
(R1) ;READ THE LOCATION 
100000 174716 #100000,@CSRADR ;LOOK FOR DBE STATUS BIT 
50$ ae at D BE SET 
174706 GET CSR ADDRESS 
100000 > SHOW BIT 15 SET 
005506 I PC, ERROR ;*ERROR* REPORT ERROR MESSAGE 
p%eeeeeERROR NUMBER G7xannnn 


(SP)+,R1 RESTORE R1 
0 SET UP FOR BUS PBL 


— 


SSR Seas eS SS 


MO : 
174650 #1 ACSRADR SET DOUBLE ERROR INDICATE 


(R1) sREAD THE i i LOCATION AGAIN 

@CSRADR :CLEAR STATUS REG 

RO :CLEAR RO 

PC, ERROR *ERROR* REPORT ERROR MESSAGE 
p**eeekERROR NUMBER SOxxnane 


:1F ERROR, DON'T ADJUST STACK 
000004 : SADJUST STACK FROM TRAP 
000406 : @#$SPASS sFIRST PASS ? 

80$ :BR IF YES 
174564 : CHECK MASK FOR LAST BIT 

70$ ;MINUS = BIT31 
005230 Phan DOUBLE SHIFT 


WWAWWNWNWNWAWAWG 
and aad aad ae cd aed cad ad ad ed 


SURGRERNS 


mieten 


BR 35$ 

174542 : bg SINGLE ERROR MASK TOO 
BM 75$ BR IF DONE 

005212 + SHIFT 
° SBEMSK 


wn} 


Wad stv 


BR 30$ 
000302 : FIRST PASS 

BNE NON ZERO MEANS WE'RE DONE 
000302 iF IRST PASS, NOT DONE 
10$ GOING 


BR :KEEP 
000406 : >CHECKING PASS AGAIN 
Pig te 1K_ADDR FUNCTION ON 
FIRST PASS ONLY 
174514 174532 ECCDIS,@CSRADR S OTHERWISE 4b ECC 
(R1)+ : CLEAR THE DBE'S 


(R1) 

90$ AND EXIT 
@CSRADR CLEAR CSR 
Re > OUR 


COUNTE 
(R1) READ THE LOCATION 
@CSRADR ,R3 :MOV CHECKBITS INTO R3 
@CSRADR 4 icy CSR AGAIN 
#170037 ,R3 ONLY WANT CHECKBITS 
R3 “POSITION THEM 


Wives 
BUS 


Ww 
et et Ss ss Ss Ss ss Ss Ss ss SS SS 


RVSIVSRAKKSRRISUVSK 


Whoo 


KERR ERE 
SSRERRRRERS Seneesenensesesscs 
RSERNSELSAS F 


BEES 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


WWWWWWGW 
Mw 
WN 
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: INTO LOW BYTE 


— 


WAAWAINAG 
ae 


R3 HERE 
007144 3GET THE 1K BANK 
R3,RO ;BETTER BE THE SAME 
;BR IF OK 
R1,-(SP) ;SAVE R1 FOR NOW 
174432 174450 ECCDIS,@CSRADR ;DISASLE ECC 
R3,(R1) ;PUT BAD ily TO BE PRINTED INTO R1 
174442 @CSRADR sRESTORE CSR 
005246 PC,ERROR ;*ERROR* REPORT ERROR MESSAGE 
+ kee ERROR NUMBER 51 x«annn 


MO (SP)+,R1 RESTORE R1 
174406 174424 85$: ECCDIS,@CSRADR ;DISABLE ERROR CORRECTING 
C (R1)+ :TO CLEAR ANY DOUBLE ERRORS 


174414 @CSRADR RESTORE CSR 

003777 STRIP AWAY TO LAST 1k 

004000 AD s:MOVE UP TO NEXT 1K 
bse TOP YET ? 


90$ :BR YES 
PC, TSTADD CHECK FOR ERROR o> LOC 
R3 hi ERROR FREE 


OK 
Re COUNT ONE WORD CHECKED 
ee ioe IF WHOLE 1K SLICE YET ? 


WISSRISIS SSS ES FESS AIS 


WW 


PC, TPCRLF ;PRINT ROUT INE 
/TST7=NO ERROR FREE LOC IN 1K SLICE AT / 


SRSRESESS 


S3S8 


wr 


#3776,R1 :WANT STARTING ADDRESS OF 1k 
SCRATCH LOC FOR ADDRESS 
FOR OFFSET 


SEs 


1 
;PUT ADDRESS IN SAV7 & SAV7+2 
zPRINT ONE WORD 
) ZADJUST FOR PRINTOUT 
PC, TYPOCT PRINT IT HERE 
R sRESTORE Re FOR NEXT SLICE 
HS a sRESTORE R1 


:GO LOOK FOR GOOD LOC 
#4.R1 SNEXT WORD 
88s :GO CHECK IT 
TSTDAT, (R1)+ sWRITE FIRST WORD 
R4,a@CSRADR CSR IMAGE WITH BAD CHECKBITS 
TSTDAT #2, (R1) [WRITE 2ND WORD + CHECKBITS 


sADJUST R1 
82 [CONTINUE TESTING 
@CSRADR CLEAR CSR TO NORMAL 


& 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
; 
1 
1 
1 
1 
13 
; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


WWAAAWWw 


~°) 
N 
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004767 004612 J PC .RSTOTS ;RESTORE THE REGS 0 TO 4 

000167 174054 END?: TSTSCP 

000000 000000 SAV?: 0,0 
STHIS TEST CHECKS THE WRITE INHIBIT ON DOUBLE 
7BIT ERRORS DURING A DATIP OPERATION BY USE 
; OF AN 'INC' INSTRUCTION. 

122737 TST10: #10. awSTESTN 

03 1$ 


PC, SEQERR s*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 
y**keekkERROR NUMBER S2eannnn 


R4,SAVOTS 7 SAVE yA * TO R4 
DATBUF 2 INIT IAL D. 


WORDS WORTH 
174076 : S INITIAL ERROR MASK 
SBEMS : 
174070 : DOUBLE ERROR MASK 
DBEMSK +2 


174046 : DATBUF,TSTDAT =PRESERVE ORIG DATA 
174042 DATBUF +2, TSTDAT+2 
@4PASFLG 


—_ 
Pa 
a a a cae cd ae ed cae ed 
OWONAOUSWIN—O 


RANISHSASSASSS 


el a ed ed ed ed wd 


mr 


Fe PASS YET ? 


$ F NO 
TSTDAT = COMPL DATA ON SECOND PASS 
i : 


: @CSRAD : 
174022 174014 DBEMSK,SBEMSK ;:CHECK FOR SAME MASKS 
BNE 6 : F OK 


$ 

174014 1746006 DBEMSK +2, SBEMSK+2 

70: SBR IF THEY'RE EQUAL 

002670 004112 : #TSTDAT SOURCE SET UP _ADDRESS FOR CHKGEN 
004160 PC. CHKGEN 


GENERATE CHECK BITS 
004474 =COMPL ROUTINE 
DATA 
[TO MAKE DOUBLE ERROR 


GET CHECKBITS 
SET DIAGNOSTIC A BIT 
: INMEM ,R : TEST ADDRESS 
173762 ECCDIS,a@CSRADR INHIBIT ECC 
TSTDAT, (R1)+ ;WRITE FIRST 16 BITS 
Re, LOAD CSR WITH IMAGE FROM R2 
TSTDAT+2,(R1) SECOND 16 BITS*CHECKBITS 
UPPFLG 2 INDICATE LOWER WORD 
000320 MO @M1NMEM RS STEST ADDRESS 
173732 : @CSRADR CLEAR IT 
(R3)+ 2 INC_INSTRUCTION 
173664 TSTDAT,=(R1) :CHECK FOR UNCHANGED DATA 
60$ ; D UNCHANGED 


: SHOULD BE 
173656 TSTDAT,RO 7FOR PRINTOUT 
004522 PC ,ERROR 7 *ERROR* REPORT ERROR MESSAGE 
3 peeeeeeERROR NUMBER S3eenene 
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007020 062701 000002 60S: ;POINT TO UPPER WORD 
907024 173642 Meet 2. (RI) ‘READ IT 
0070 80$ 


001434 7BR IF UNCHANGED 
007032 173634 TSTDAT+#+2,R0 ; 
007036 004767 004476 PC,ERROR ;*ERROR* REPORT ERROR MESSAGE 
p**eeeeERROR NUMBER 54xennne 
004002 : ;LOWER WORD 
BNE 66$ ;BR IF NO 
003774 
BR 5 
000406 t Pa ap 4 
BEQ 90$ ‘BR FIRST 
173610 : :LAST. “A IN MASK ? 
75$ F BIT 31 


004254 SHIFT ROUT INE 
° DBEMSK 


BR 35 
173566 : sLAST BIT IN SINGLE ERROR MASK ? 
80$ BR IF YES 
004236 ; SHIFT 
SBEMSK ; 


BR 30$ 
000302 : WHICH PASS 
BNE $ 


BR IF WE'RE DONE 
000302 a nS Bag he , SECOND PASS COMING 


173546 : tate SINHIBIT eee TO CLEAR DBE'S 
-(R1) 


173554 a@CSRADR RESTORE CSR TO NORMAL 
004160 PC,RSTOTS RESTORE THE REGS 
173422 TSTSCP 


[CHECK FOR WRITE INHIBIT DURING A WRITE BYTE. 
[CHECKS FOR UNCORRECTED DATA. 

#11, a#STESTN 

1$ 


PC, SEQERR :*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 
peeeeeeERROR NUMBER 55eannan 


R4, SAVOTG SAVE REGS | RO TO R4 
DATBUF TINITIAL D 

DATBUF +2 2 BITS CORTH 

#1, SBEMSK “SINGLE ERROR MASK 
SBEMSK +2 : 

#1, DBEMSK [DOUBLE ERROR MASK 
DBEMSK +2 : 

DATBUF , TSTDAT {PRESERVE ORIG DATA 


DATBUF +2, TSTDAT+#2 

aePASFLG SWHICH PASS ? 

4 SFIRST PASS, NO COMPLEMENTING 
TSTDAT 


TSTDAT+2 SECOND PASS, COMPLEMENT TSTDAT 


SESesEs 


MOMMA) 
dd ad od dd 
WONAUSWN—O 


cs ke ed ed ed od = 0d 0 st = = 


Vw 
N 
~— 
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007274 005077 173430 
00 026767 173370 


00 004 
007310 pce/ee 173362 


0073 

007320 012767 002670 
004767 003532 

004046 


a a td et 
SENSSRGN | 
Nm 


Stas aN ph 
5 
iS 
3 
: 


area sritamnietramratan 
SSessessss 
aS Ww 
2 ea 
Sc 
S333 
N 


000003 
000360 


ExsEx 
S 
& 


000320 
173226 
007444 016700 173220 

004064 


rs 
ws) 
g 
E 


000002 
173204 
173176 
004040 


BAIAGASAY 
SRBYRARUNUZLS 

Ss 

A 

= 

e 

+ 

—_ 


007504 

7506 005737 000406 
007514 005767 173162 
007520 100404 
007522 004567 003626 


SERERELSS 
= 
8 


& 


JEARANASS 
N 


000644 
007532 005767 173140 
100404 
007540 004567 003610 
007544 


007546 000630 

007550 105737 000302 
001003 

007556 105237 000302 


sa ee ee ed ee ee ee ed td ed 


MOMMA AUT 


MACY11 ge 


173372 
173364 
003464 


173334 


40$: 


45$: 


50$: 


55$: 


60$: 


65$: 
70$: 


80$: 


90$: 
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@CSRADR 
oe SBEMSK , DBEMSK 
CMP SBEMSK +2 ,DBEMSK+ 
70$ 


MOV #TSTDAT , SOURCE 
JSR PC, CHKGEN 


JSR R5,B1TCOM 
-WORD SBEMSK 
-WORD TSTDAT 
JSR R5,BITCOM 
-WORD DBEMSK 
«WORD TSTDAT 
CHECK ,R2 


MOV 
BIS DIAGA,R2 
MOV 


@/MINMEM ,R1 
MOV ECCDIS,@CSRADR 
MOV TSTDAT , (R1)+ 


R2,@CSRADR 
MOV TSTDAT+2,(R1) 
@CSRADR 
MOV @sMINMEM,R2 
MOV Re Re 
MOVB #360. (R2) a at 
CMP TSTDAT, “kl ) 
60$ 
MOV TSTDAT ,RO 
JSR PC ,ERROR 


#2,R1 
CMP TSTDAT+#2,(R1) 
65$ 
MOV TSTDAT+2,RO 
JSR PC, ERROR 


CMP R2,R3 
BNE 55$ 

TST aK¥SPASS 
BEQ 100$ 


WORD DBEMS 
BR 35$ 
TST SBEMSK +2 
BMI 90$' 
JSR R5,DASHL 
. WORD 
BR $ 


30 
TSTB @4PASFLG 
BNE 100$ 
INCB @4PASFLG 


30 
PROGRAM RELOCATES. 


[CHECK FOR SAME MASKS 
“BR IF NOT EQUAL 
2 : SECOND 
3BR TO MAK 

SADDRESS FOR CHKGEN 


3GO_GENERATE CHECK BITS 
BIT COMP ROUTINE 


[DATA WORD 
[MUST FORCE SECOND ERROR 
MASK 


GET CHECKBITS 
SET DIAGNOSTIC A BIT 
TEST LOCATION 


DISABLE ECC 

WRITE FIRST 16 BITS 

LOAD CSR WITH IMAGE FROM R2 
:WRITE score 16 BITS + CHECKBITS 
GET ADDRESS OF TEST LOC 

zRe tp ball t tact eves 


3R3 DESIGNATES LAST 
:TRY WRITING A BYTE 


© CHECK FOR UNCHANGED DATA 
BR IF OK 


:FOR ERROR MSG 
3 *ERROR* REPORT ERROR MESSAGE 
+ eeeee ERROR NUMBER 56%%x%0% 


UPPER WORD 
READ SECOND WORD 
:BR IF UNCHANGED 


S®ERROR* REPORT ERROR MESSAGE 
y**xeeeERROR NUMBER 57xxaene 


Bo as LAST BYTE ? 

:PIRST PASS ? 

:BR YES 

CHECKING FOR LAST ERROR BIT 
BR IF DONE HERE 

3NOT DONE, SHIFT as 
DOUBLE ERROR MA 


3LAST SBE MASK 
3BR IF DONE WITH THIS PASS 
DOUBLE WORD SHIFT ROUTINE 


TEST PASS FLAG 
[NON ZERO MEANS WE'RE DONE 
NOT DONR 


SEQ 0037 
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a 


BR 10$ 
173136 100$: ECCDIS,@CSRADR ;DISABLE ECC 
7 Pataca ; TEST LOCATION 
+ 


R283 


(R1) :TO ERASE ANY DBE'S FROM TESTING 
@CSRADR sRESTORE CSR 
nie sRESTORE REGS RO TO R4 


vi 


:DOUBLE BIT ERROR WRITE CANCEL WITH 


CHECKS WRITE INHIBIT WITH WORD WRITES TO 
WORD WITH DOUBLE ERROR. 


#12 ,Q4STESTN oR IF a PROPER TEST SEQUENCE 


PC, SEQERR s*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 
y**xaeERROR NUMBER 60ex0nnn 


R4,SAVOT4 SAVE REGS RO TO R4 
DATBUF BACKGROUND FOR DOUBLE ERRORS 
z2 WORDS WORTH 
173016 SINGLE ERROR MASK 


173010 : MOV ; DOUBLE ERROR MASK 


173006 DBEMSK+2 
172764 172766 : DATBUF,TSTDAT DATA FOR TEST 
172760 172762 MOV DATBUF +2, TSTDAT+2 H WORDS 
000302 @#PASFLG SCOMP DATA ON SECOND PASS ONLY 
40$ ‘BR IF FIRST PASS 
172746 TSTDAT : COMP FIRST WORD 
172744 TSTDAT+#2 SECOND WORD 
172742 172764 7 Ow SBEMSK , DBEMSK CHECK FOR IDENTICAL MASKS 
172734 172736 SBEMSK +2 , DBEMSK+ ” sUPPER WORD TOO 
70$ 3BR TO MAKE THEM NOT EQUAL 
002670 003036 : #TSTDAT SOURCE NEED ADDR OF DATA FOR CHKGEN 
003104 HKGEN GENERATE CHECK BITS 
003420 R5.BI “BIT COMP ROUTINE TO FORCE ERRORS 
SBEMSK [FIRST ERROR 


003410 [CALL IT AGAIN 
DBEMSK [FOR SECOND ERROR 


GET CHECKBITS 

SET DIAGNOSTIC BIT 
@YMINMEM,R1 ;FIRST TEST ADRRESS 
ECCDIS,aCS?ADR 


NHIBIT ECC 
TSTDAT, (R1)+ ZWRITE bi 16 A i 
RO, @CSRADR C 
TSTDAT+2, (R1) ‘URITE SECOND 16 BITS + CHECKBITS 
UPPFLG :SET FOR 2 LOOPS 
#2,R1 :POINT TO A WORD 


@CSRADR ;CLEAR CSR 
#177400,(R1)+ TRY WRITING LOCATION 
013701 @4MINMEM, 


RV LESBLE 


RFRA 


« _ 
bee or he a hp Ad ah aba 
N 


S33 


3 


ee kd a ed td ed dd od 
AARAGRAAAAO 
ed ed ad cd ad cd eed ad od ed 
WONAULSWN—O 


R&S 


RBRE 
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0102 
010252 


010256 
010264 


010266 
010272 
010274 
010276 
010300 
010302 
010304 


026711 
00 


172602 
172574 
003440 


000002 
172560 
172552 
003414 


002720 
002712 
000406 
172526 
003172 


172504 
003154 
177454 
000302 


000302 
fay pb 

172460 
000320 
172462 
003066 
172330 
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172476 


TSTDAT, (R1) 
60$ 

TSTDAT ,RO 
PC,,ERROR 


#2,R1 
TSTDAT+2,(R1) 
65$ 
TSTDAT+2,RO 
PC,ERROR 


@CSRADR 
PC ,RSTOT4 


> AND 

#13, a#STEST 
6$ 

PC, SEQERR 


+ CHECK FOR ORIGINAL DATA 
; SHOULD BE UNCHANGED 
7FOR ERROR MS 
; *ERROR* REPORT ERROR MESSAGE 


: akkkkkERROR NUMBER 61eee08% 


UPPER WORD 
: THIS SHOULD BE UNCHANGED ALSO 


*ERROR* REPORT ERROR MESSAGE 
yxeeeeeERROR NUMBER 62e%%0«% 


WHICH LOOP ? 
7SECOND, BR OUT 
sFIRST, KEEP GOING 


zsFIRST PASS ? 
;BR IF YES 


MI 
;SHIFT R 


OUT INE 
sTHIS 32 BIT WORD GETS SHIFTED 


LAST BIT IN THIS MASK ? 
:BR IF LAST BIT 


FIRST PASS ? 
BR IF SECOND 
2 INDICATE SECOND PASS COMING 


“RESTORE TEST ADDRESS 
CLEAR ANY DBE'S FROM TEST 


:CLEAR CSR 
TRESTORE REGS RO TO R4 
TSTSCP 

:TEST DUAL ADDRESS TEST 

[CHECKS FOR DUAL ADDRESSING BY WRITING 


7 AND ies THE ADDRESS IN THE LOCATION 
th AND READING ITS COMPLEMENT 


7 *ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 
peeaeeeERROR NUMBER 63020008 


3R3 per eaTes inst PASS OR 


> COMPLEMENT 


cIF R3= tat STORE ADDRESS 
IN THE ON 


LOCATI 
‘OTHERWISE STORE COMPLEMENT 
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1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 


1701 


3 


ae 


SIIAITASAASSSISS 
ODNAAHRWNASSONERN 


So 


NM 
WEWRS 


NNN NN 
NINN 


N 
MMM 
Ono 


aysegasyas 


a 
we) 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


N 
NRNWRR 
UEWN Oo 


010370 
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oO 
Ro 


238888 


S8=5 
=A~ANM— 
RSS 


S 


103771 
020041 
001416 
062701 
123741 
sd 402 
001002 
105237 
042701 
004767 
000066 


020104 
101356 
000337 


000001 


172216 


MACY11 ye 


2$: 


3$: 


17=MAR-80 


RO, (R1)+ 
R1,R5 


n't =(R1) 


SPSADERR 
PC ERROR 


R1,RO 
#2,R0 
R3 


5$ 

RO 

R1,R4 
$ 


#1, Q4PASFLG 
R3 


1$ 
TSTSCP 


B 4 
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:OF ADDRESS 
sUNTIL HIGHEST LOC IS REACHED 


CHECK FOR CORRECT CONTENTS 
sBRANCH IF _ 
DRESSING PROB. 


sPROBABLY AN AD 
;*ERROR* REPORT ERROR MESSAGE 
pxeeeekERROR NUMBER 64eenn08 


CHECK THAT ADDRESS IS STORED AT 
sLOCATION IF R3 IS 0 
OTHERWISE CHECK FOR 
sADDRESS COMPLEMENT. 


:SET PASFLG FOR ERROR REPORT 
: COMPLEMENT R3 
[REPEAT TEST, COMPLEMENTING ADE 


THIS TEST CHECKS THE MEMORY FOR THE CAPABILITY 
OF HOLDING 1° 


S_AND 0°S BY WRITING A BACKGROUND 


OF BAKPAT AND READING IT 
MEMORY IS WRITTEN USING A BYTE AT A TIME 
STEPS 1 & 2 ARE REPEATED WITH A SWAPPED BACKGROUND PATTERN 


#14 ,QHSTESTN 
1$ 


PC,SEQERR 


@4BAKPAT ,RO 


RO, (R1)+ 


RO,-(R1) 


8$ 
#2,R1 


:CHECK FOR PROPER TES) SEQUENCE 


s*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 
y*xkeekERROR NUMBER 65eexnn% 


:GET_ THE wee INTO RO 


[WRITE A 
aFBAKPAT#1, (R1)+; Atl: THE MEMORY WITH THE See STORED IN BAKPAT 


OMPARE TEST LOC TO TOP + 
BRANCH IF LOWER 


s TEST THE MEMORY TO SEE es IT CONTAINS 
THE WORD STORED IN BAKPAT 


@WBAKPAT+1,-(R1);CHECK FOR BYTE SELECTION PROBLEM 


RO,-(R1) 


PC ERROR 


R1 RS 
2$ 
@ABAKPAT 


sAGAIN CHECK FOR BYTE SELECTION PROBLEM 


ete TO INFORM THAT IT IS ADDRESSING ERROR 
E THE ADDRESS IN R1 EVEN 

i WERROR® R REPORT ERROR MESSAGE 

y**keexERROR NUMBER 6620008 


KEEP ON rears THE MEMORY UNTIL 
R1 EQUALS THE LOWEST ADDRESS 
; CHANGE THE DATA PATTERN 
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010474 
010476 


SNAG 
PARADA 
Wo 


eS SS es os SS 
Sn~N 

Vu 

OnNOW 


010502 
1759 


1773 


SSSSIFIRIISSRISARAVASINININ 


010720 


001744 
000167 


122737 


000070 


172104 


000015 
003022 


172164 
004000 
000320 


172162 
100000 
000004 


002674 
003740 
004000 
000002 


172030 
172022 
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000404 


000002 


172126 


172110 


005104 


172054 
172046 


END14: 


TST15: 


1$: 


2$: 


3$: 


33$: 


4$: 


5$: 


C 4 
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BEQ 
JMP 


1$ 
TSTSCP 


:1F THE DATA PATTERN DOES NOT HAVE LOW 
; BYTE =0 THEN FALL THRU 


:*THIS TEST IS CONCERNED ONLY WITH THE INTEGRITY 
:*OF THE 4K MOS RAMS THAT STORE_THE CHECKBITS. 
:*USING DIAGA (BIT 2) AND BIT 13 TO PROTECT THE 
;*PROGRAM IF NECESSARY, THE CHECKBITS ARE WRITTEN 


:*AND READ VIA THE CSR. 


+ aeeateatt rence 
PC,ERROR 


R4,~(SP) 


R, @CSRADR 
R4.(R1) 
100000, 2(R1) 
#4,R 

R1 Re 

2$ 

#4 RI 

(Ri) 

#3740 ,@CSRADR 
#4000,RO 

PC BITCHK 
#400 ,aSWR 
#1,BITCNT 

4$ 

#4000,RO 
PC,ERROR 
#3740, a@CSRADR 
#4000, aCSRADR 
R4, (Ri) 
R4.2(R1) 

R1. (SP) 

3$ 

R3,@CSRADR 
(Ri) 
@CSRADR RO 
#170037,RO 
#3740,R0 


6 
#3740,R0 


CHECK FOR PROPER TEST SEQUENCE 


;*ERROR* REPORT ERROR _MESSAGE 
p*%keeekERROR NUMBER 67eanann 


7 SAVE R4 
DIAGNOSTIC CHECK MODE 
CHECK BIT CT 

FIRST TEST LOC 

;SAVE IT FOR LATER 


:SET_UP CSR 

sWRITE CHECKBITS BY WRITING LOC 
sSET BIT 31 Ls MATCH CHECKBITS 
:POINT # NEXT WORD 


:BR IF NOT 
ADJUST R1 


READ 

; SHOULD BE ALL ZEROS 

5 F OK 

;GOOD DATA 

2 USE XOR TO COUNT BAD CHECKBITS 
CC DIS ? 


;PRNIT SINGLE ERRORS 
s MORE THAN 1 BAD BIT ? 


;FOR ERROR MSG 
;*ERROR* REPORT ERROR MESSAGE 
yx*keeERROR NUMBER 70 exanne 
;MAKE CHECKBITS ALL 1°S EXCEPT FOR CT 
sWRITE THE CHECKBITS 
;BOTH WORDS 

;BOTTOM YET ? 

[BR IF NO 

RESTOR E =. 

;READ THE LOC AGAIN 

:GET CSR CONTENTS INTO RO 

BITS 11 

“READ F ALL 1°S 


:BR I 
:FOR ERROR MSG 


SEQ 0041 
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1802 010724 004767 004724 JSR PC ,BITCHK : 

1803 010730 032777 004000 171774 BIT #4600, aSWR ZECC DIS ? 

1804 010736 001004 BNE 5 

1805 010740 022767 000001 004770 CMP #1 ,BITCNT :MORE THAN ONE ? 

1806 010746 001405 BEQ $ : 

1807 010750 012700 003740 55$: MOV #3740,RO *FOR MSG 

1808 010754 004767 002560 JSR PC, ERROR :*ERROR® REPORT ERROR MESSAGE 
1809 010760 000071 7) ieee ERROR NUMBER 71 eeene 
1811 010762 010377 171742 6$: MOV R3, @CSRADR :RESTORE CSR 

1812 010766 010411 MOV :ACCESS THE LOC 

1813 010770 012761 100000 000002 MOV 160000, 2(R1) 

1814 010776 062701 000004 ADD ‘POINT TO NEXT ADDRESS 

1815 011002 020105 CMP Rt RS :TOP + 2 YET? 

1816 011004 103733 BLO 5$° ‘BR IF NOT 

1817 011006 011601 MOV (SP) ,R1 SRESTORE MINMEM 

1818 011010 010377 171714 7$: MOV R3,a@CSRADR SRESTORE CSR 

1819 011014 005711 TST Ri) TREAD 

1820 011016 032777 003740 171704 BIT #3740,@CSRADR :SHOULD BR 0 

1821 011024 001421 BEQ 8$ 

1822 011026 012700 004000 MOV #4000,RO ;GOOD DATA 

1823 011032 004767 004616 JSR PC BI TCHK *CHECK # OF BAD BITS 

1824 011036 032777 004000 171666 BIT #4000, aSWR “ECC DIS ? 

1825 011044 001004 BNE 77$ YES 

1826 011046 022767 000001 004662 CMP #1 ,.BITCNT ‘MORE THAN ONE 

1827 011054 001405 BEQ 8$ : 

1828 011056 012700 004000 77$: MOV #4000,RO [FOR PRINTOUT 

1829 011062 004767 002452 JSR PC ERROR ‘*ERROR® REPORT ERROR MESSAGE 
1830 011 000072 72 i *k*k*RKERROR NUMBER 72exe 08 
1832 011070 052777 003740 171632 8$: BIS #3740,@CSRADR  ;COMP CHECKBITS 

1833 011076 042777 004000 171624 BIC #4000, a@CSRADR CLEAR CT 

1834 011104 010411 MOV R4, (Ri) SWRITE 

1835 011106 010461 000002 MOV R4.2(R1) : 

1836 011112 062701 000004 ADD #4°R1 [NEXT WORD 

1837 011116 020105 CMP R1_R5 :TOP + 2 ? 

1838 011120 103733 BLO 7$° ‘BR IF NO 

1839 011122 010377 171602 MOV R3,@CSRADR SRESTORE CSR 

1840 011126 162701 000004 9$: SUB #4-R1 SADJUST R1 

1841 011132 005711 TST (Ri) TREAD 

1842 011134 017700 171570 MOV @CSRADR RO :GET CSR CONTENTS 

1843 011140 042700 170037 BIC #170037.RO SONLY WANT CHECKBITS 

1844 011144 022700 003740 CMP #3740,R0 TALL ONES ? 

1845 011150 001421 BEQ 10$ ‘BR IF Ok 

1846 011152 012700 003740 MOV #3740,RO *FOR ERROR MSG 

1847 011156 004767 004472 JSR PC.BI TCHK [COUNT BAD BITS 

1848 011162 032777 004000 171542 BIT #4000, aSWR 3ECC DIS 

1849 011170 001 BNE “YES 

1850 011172 022767 000001 004536 CMP #1 ,BITCNT ‘MORE THAN ONE ? 

1851 011200 0014 BEQ 10$ ; 

1852 011202 012700 003740 99$: MOV #3740,RO [FOR MSG. 

1853 011206 002326 JSR PC, ERROR ‘*ERROR® REPORT ERROR MESSAGE 
1854 011212 000073 73 ieek*e ERROR NUMBER 73eeeene 
1856 011214 010377 171510 10$: MOV R3,@CSRADR :RESTORE CSR 

1857 011220 010411 MOV R4_(R1) TWRITE NEW CHECKBITS 
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1858 011222 012761 100000 000002 MOV #100000,2(R1) ;BIT 31 
1859 011230 020116 CMP R1, (SP) BOTTOM YET ? 
1860 011232 001335 BNE ) BR IF NOT 
1861 011234 005711 11$: TST (R1) SRERAD 
1862 011236 032777 003740 171464 BIT fal @CSRADR SHOULD BE ALL O'S 
1863 011244 001421 BEQ 12$ 3 F OK 
1864 011246 012700 004000 MOV #4000 ,RO :GOOD DATA 
1865 011252 004767 004376 JSR PC BITCHK ;COUNT BAD BITS 
1866 011256 032777 004000 171446 BIT #4000, aSWR sECC DIS ? 
1867 011264 001 BNE 1118 iY 
1868 011266 022767 000001 904442 CMP #1,BITCNT sMORE THAN 1 
1869 011274 001405 BEQ 12$ ;BR NO 
1870 011276 012700 004000 111$: MOV #4000 ,RO FOR MSG 
1871 011302 004767 002232 JSR PC,ERROR ;*ERROR* REPORT ERROR MESSAGE 
ere 011306 000074 74 j**eeeeERROR NUMBER 74xnnnne 
1874 011310 062701 000004 12$: ADD #4 ,R1 sPOINT TO NEXT WORD 
1875 011314 010377 171410 MOV R3,aCSRADR RESTORE CSR 
1876 011320 020105 CMP R1,R5 :TOP + 2 YET? 
1877 011322 103744 BLO 11$ 7BR IF NOT 
1878 011324 005726 TST (SP) + sFINALLY RESTORE STACK 
1879 011326 O12 MOV (SP)+,R4 RES TORE R4 
inet 011330 000167 171252 END1S: JMP TSTSCP sAND EXIT 
1882 
4 3*(1) bgt Bi tig WRITES A BACK GROUND OF THE WORD STORED 
** 
1885 7*(2) READS EVERY LOCATION FOR CORRECT DATA, SWAPS BYTES 
1886 3* AT THE LOCATION AND PROCEEDS IN MAX. To MIN 
1887 c* DIRECTION OF MEMORY LOCATIONS. 
1888 7*(3) READS EVERY LOCATION FOR SWAPPED BAKPAT PATTERN 
1889 3* WRITES BAKPAT BACKGROUND IN THE LOCATION AND PROCEEDS 
1890 7* IN MIN. TO MAX. DIRECTION 
1891 7*(4) REPEATS STEP 2 GOING IN MIN. TO MAX. DIRECTION 
1 7*(5) REPEATS STEP 3 GOING IN MAX. TO MIN. DIRECTION 
1894 
1895 011334 122737 000016 000404 TST16: CMPB #16, Q4STESTN sCHECK FOR PROPER TEST SEQUENCE 
1896 011342 001403 BEQ 1$ 
1897 011344 004767 002676 JSR PC,SEQERR ;*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 
as 011350 000075 75 7 **eeekERROR NUMBER 75eanene 
1900 011352 004737 000120 1$: JSR PC, a4WRTMEM :GO TO WRITE THE MEMORY WITH A BACKGROUND OF THE 
1901 ; WORD STORED IN BAKPAT 
1902 011356 020041 2$: CMP RO,-(R1) ;READ THE CONTENTS OF LOCATION POINTED BY R1 
1903 011360 001403 BEQ 3$ TO SEE IF IT HAS THE SAME VALUE AS RO 
1904 011362 004767 002152 JSR PC,ERROR + *ERROR* REPORT ERROR MESSAGE 
i 011366 000076 76 ***eekERROR NUMBER 76seeene 
1907 011370 000300 3$: SWAB RO 
1908 011372 010011 MOV RO, (R1) ;SWAP THE BYTES AT (R1) 
1909 011374 021100 CMP (Ri) RO *READ (R1) FOR CORRECT VALUE 
1910 011376 001403 BEQ 4$ 
1911 011400 004767 002134 JSR PC,ERROR ;*ERROR* REPORT ERROR MESSAGE 
4 011404 77 77 peeeeeeERROR NUMBER 77eennne 
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011406 000300 4$: SWAB RO SWAP THE BYTES OF THE REGISTER 
; CONTAINING BACKGROUND PATTERN 

011410 BNE 9$ SIF THE LOWER BYTE OF THE REGISTER 
:1S_NOT 0 THEN THE PROGRAM IS READING 
THE MEMORY TO CONTAIN A BACK GROUND OF 


;BAKPAT AND WRITING THE SWAPPED WORD 
3 IN WHICH CASE GO TO 9$ 


011412 : ;R3 WAS 0 WHEN THE PROGRAM ENTERED 
: THIS TEST, AND IT IS NOT ALTERED UNTIL PASFLG=3 
F R3 EQUAL OGRAM _IS 


So Ss Ss 
OODODOD0D0000 
NNR A a Ss Ss SG 
NSO NOOE 


011414 23 GO 
011416 27 : “OTHERWISE ADD 2 TO THE CONTENTS OF R1 
011422 020105 MP : COMP conten WITH THE MAX. MEMORY LOCATION TO 
011424 103006 8$ 7 IF R1>R5 THEN GO TO 8$ OTHERWISE 

020011 : ;READ (R1) FOR THE CORRECT DATA 

001757 3$ ; WRITE COMPLEMENT OF THE DATA FOUND AT (R1) 

‘AND REPEAT UNTIL R71 > RS 

011432 004767 002102 PC,ERROR > *ERROR* REPORT ERROR MESSAGE 
011436 000100 ‘axe *eERROR NUMBER 100*«s2«« 


011440 3$ 
@4PASFLG 
000300 WAB RO 
011450 2s :1F THE LOWER BYTE OF RO IS ALL O'S 
;THEN BEGIN READING BAKPAT SWAPPED WRITING BAKPAT 
AND READING BAKPAT GOING FROM MAX. TO MIN. CPASFLG=4] 
011452 R3 OTHERWISE CLEAR RO 
011454 ° PUT THE a TESTING tpt IN R1 
011456 000763 7$ SAND BEGIN READING 0°S, WRITING 1°S AND 
[READING 1° e IN MIN. TO MAX. DIRECTION CPASFLG=3] 


iI R3_IS NON 0, I.E. PASFLG=3 
: THEN READ BAKPAT, WRITE 
SWAPPED BAKPAT AND READ SWAPPED BAKPAT 
IN MIN. TO MAX. DIRECTION 
SOTHERWISE TEST IS PROCEEDING IN MAX. TO 
MIN. DIRECTION. 

101333 BH 2$ :KEEP ON LOOPING UNTIL R1=R4 

105237 000302 

000300 


WAB 
011476 001753 7$ 2 IF RO SWAPPED HAS LOWER BYTE=0 
[THEN READ BAKPAT SWAPPED, WRITE BAKPAT, 
AND READ BAKPAT GOING FROM MIN. TO MAX. 


al 
-oOvo 


~~ 
n> 4 


011500 000167 171102 : TSTSCP 


THIS TEST WRITES THE MEMORY WITH A BACK GROUND Or BAKPAT 
WITH PASFLG=0 THE TEST READS THE MEMORY FOR BAKPAT 
AND THEN INCREMENTS PASFLG 


PESSPERES SSIS IRIS 


& 
oO 
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1970 :*(3) IT THEN READS/SWAPS BYTES/WRITES A LOCATION X £OK 

1971 * OVER 2 MSEC AND THEN READS THE MEMORY FOR BAKPA 

1972 :*(4) REPEATS STEP 3 WITH X=X*4K UNTIL END OF MEMORY Is ENCOUNTERED 

1973 :*(5) IT THEN INCREMENTS PASFLG AND WRITES THE MEMORY TO 

1974 :* BAKPAT AND Wi TH PASFLG=2 IT READS MEMORY FOR ALL 

1975 ie SWAPPED BAKPAT AFTER WHICH PASFLG IS INCREMENTED TO 3 

1976 *(6) REPEATS STEPS 3 AND 4 READING NG THE MEMORY FOR SWAPPED 

1977 ie BAKPAT INSTEAD OF BAKPAT 

1978 011504 122737 000017 000404 1TST17: (CMPB #17, aM#STESTN ;CHECK FOR PROPER TEST SEQUENCE 

1979 011512 001403 BEQ +16 

1980 011514 004767 002526 JSR PC, SEQERR 7 *ERROR® REPORT ERROR MESSAGE AND HALT AT FATHLT 

1 011520 000101 101 pj **eeekERROR NUMBER 101 eenene 

1983 011522 004737 000120 RPT17: JSR PC, a#WRTMEM 3GO TO WRITE THE MEMORY WITH A BACKGROUND OF THE 

1984 [WORD STORED AT LOCATION BAKPAT 

1985 011526 005037 000302 CLR @4PASFLG 

1986 011532 010403 1$: MOV R4,R3 iSET R3 

1987 011534 010401 2$: MOV R4.R1 AND R1 TO THE STARTING ADDRESS OF MEMORY UNDER TEST 

1988 011536 020011 3$: CMP RO. (R1) CHECK (R1) FOR CORRECT DATA 

1989 011540 001403 BEQ 4$ 

1990 011542 767 001772 JSR PC,ERROR 7 *ERROR* REPORT ERROR MESSAGE 

1991 011546 000102 102 yee ERROR NUMBER 102eeenee 

1993 011550 062701 000002 4$: ADD #2,R1 ; INCREMENT R1 BY 2 

1994 011554 020105 CMP R1.R5 :SEE IF R1 HAS REACHED THE MAX. OF MEMORY 

1995 011556 103767 BLO 3$ 

1996 011560 132737 000001 000302 BITB #1, a#PASFLG :CHECK TO SEE IF PASFLG=0 OR 2 

1997 011566 001002 BNE 5$ 

1998 011570 105237 000302 INCB = @#PASFLG 7 IN WHICH CASE INCREMENT PASFLG COUNTER BY 1 

2000 011574 020305 S$: CMP R3,R5 7SEE IF R3 HAS REACHED THE MAX. OF THE MEMORY 

2001 011576 103012 BHIS 

2002 011600 012702 037776 MOV #37776 ,R2 ;WRITE INTO 1 LOC FOR >2MS (ABOUT 100MS) 

2004 011604 000313 6$: SWAB Ss. (R33) 

2005 011606 005302 DEC R2 

2006 011610 001375 BNE 6$ 

2007 011612 010337 000350 MOV R3, a#SAVLOC ;SAVE LOCATION WRITTEN FOR 2MS FOR ERROR REPORT. 

2008 011616 703 020000 ADD #20000,R3 ‘BY ADDING 1 TO THE 14TH ADDRESS BIT CAUSE 

2009 :R3 TO POINT TO A LOCATION IN THE NEXT 


2010 74K BANK OF MEMORY 

2011 011622 000744 BR 2s 

2012 011624 105237 000302 7$: INCB @4PASFLG MAKE PASFLG=2 

2013 011630 000337 000312 SWAB @4BAKPAT :I1F BAKPAT IS NOT BEING SWAPPED FOR THE 2ND 
2014 011634 001732 BEQ RPT17 : THEN GO BACK TO THE LOCATION RPT17 

sor? 011636 000167 170744 END17: JMP TSTSCP 

2017 

2018 

2019 


BEy 
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011642 171062 RELOC: @CSRADR ; 
000377 000312 MO #377 ,AABAKPAT 
000272 aMMAVA 31S THE MEMORY MANAGEMENT BEING TESTED ? 
BNE IF SO THEN GO TO CONTMM AND CONTINUE TESTING 
MORY MANAGEMENT 


171030 L SONLY RELOCATE IF IN MEM UNDER TEST 
KD [DON'T RELOC, BRANCH 
001000 171034 ;RELOCATION GANTED? 
BN KDONE CH_IF NO 
171022 :RELOCAT ION ALLOWED 
BNE C 00, BRANCH 
000170 EL HIF HAS ALREADY BEEN RELOCATED THEN ALSO 
; PLA CE THE PROGRAM BACK IN LOWER CORE 
000200 #200, @AREL [OTHERWISE PREPARE TO RELOCATE 


sRELOCATE THE DIAGNOSTIC TO SECOND 16K 


SOOCOCOCOOCOOCO oOo 
ee ee ed eed ed ed and 

— 

SeSoue FS 


NN 
~~ 
nM 


100500 #100000+BEGIN,R1;START OF RELOCATED VERSION 
116154 #100000+ENDPROG. Re: oe 


: READ A WORD 
170766 #100000, @CSRADR ; CHECK FOR DBE 
5$ IF ERROR 
#4,R1 sNEXT WORD 
R1.R2 sEND YET ? 
$ [BR IF NOT 
4$ ;BR IF ALL IS OK 
@AREL : INDICATE NO RELOC 
PC,FATERR ;*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 
p**eeeeERROR NUMBER 103 enna 
#40 ,aSWR ae ae WANTED 


JSR PC ,PNTMES STYPE ‘REI.OC’" 
“ASCIZ /RELOC/ 
EVEN 


ooo 
—o— 
—~— 
NNNN 
Wron 
MON 


oO 

= 
— 
N 
uk 


NNN 
MUI ss 
NOs 


0 
0 
0 
0 
0 
0 
0 
0 


ee ek ek ed ed ed od ed 
We ee ee ws 
~N 


PC,CLRMM CLEAR MM REGS 
WBEGIN, @#MINMEM :NEW TEST ADDRESS 
Ate -ECCDIS pe 2ND 16K 


#10. DIAGA :DITTO 
#106000,R5 ‘START OF 2ND 16k 

R5,BA BASE FOR RELOC 

WBEGIN-50, .RG SF IRST coc’ BE RELOCATED 
Raine. (R5)+ “MOV A WORD 

RG, a*SAVRS SLAST LOC YET ? 


[BR IF NO 
#BEGIN-50,R4 [FIRST TEST ADDRESS 
@4BEGIN+100000 ;JUMP TO RELOCATED VERSION 
;*RELOCATE THE DIAGNOSTIC BACK TO LOWER MEMORY 


esss oooo 


105737 RELOER: TSTB @AREL 31S DIAGNOSTIC IN RELOCATED STATE? 
100032 BPL CKDONE BRANCH IF NO 
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2080 012110 005067 170604 CLR BASE 
2081 012114 042767 000010 170566 BIC #10,ECCDIS 
so5s 012122 042767 000010 170562 BIC #10,DIAGA 
2084 012130 016737 170566 000320 MOV SAVMIN,@AMINMEM ;RESTORE TEST ADDRESS FOR ECC - 
2085 012136 012704 000430 MOV MBEGIN-50,R4 ;PREPARE TO RELOCATE THE PROGRAM TO LOWER CORE 
2086 012142 010405 MOV R4.R5 : 
2087 012144 705 100000 ADD #1 RS 
2088 012150 012524 2$: MOV (R5)+, (R4)+ 
2089 012152 37 000342 CMP R4 , @ASAVRG 
2090 012156 103774 BLO 2$ 
2091 012160 105037 000170 CLRB @AREL 
2092 012164 012706 000500 MOV #BEGIN,SP sRESET STACK TO LOWER MEMORY 
2093 012170 010637 000346 MOV SP, @#SAVR6 ;'BEGIN'' USES THIS TO RESET THE STACK. 
2094 012174 000137 012200 CKDONE: JMP @4LOWER ; TRANSFER THE PROGRAM CONTROL TO THE LOWER CORE 
os 
2098 012200 105737 000402 LOWER: TSTB @4SFATAL sFATAL ERROR 
2099 012204 001405 BEQ 1$ :BR_IF NOT 
2100 012206 005737 000042 TST arse sAPT 7? 
2101 012212 001402 BEQ 1$ NO KEEP TESTING 
2102 012214 000167 002072 JMP APTHLT 
2103 012220 105737 0003 1$: TSTB @4SAVKBB HERE DUE TO “C TYPED? 
2104 012224 001141 BNE STPSTK BRANCH IF YES (TYPE ERROR STACK) 
44 012226 004767 002506 TSTMM: JSR PC ,MEMMNG $e AVAIL os IF THE MEMORY MANAGEMENT 
2107 012232 105737 000272 TSTB aAMMAVA 21S A 4 MANAG. AVAILABLE ? 
2108 012236 001474 BEQ ENDPAS H_IF NO 
2109 012240 000406 BR SCNTMM ;BEGIN TESTING ABOVE 28k 
2110 012242 022737 007400 172352 CONTMM: CMP #7400,@4172352 [DON'T WANT TO WRAP AROUND 
2111 012250 001464 BEQ ENDMAX GO TO END-OF-PASS 
2112 012252 004767 002640 JSR PC ,UPMM G0 TO UPDATE MEM. MANAG. pan 
2113 012256 012703 000322 SCNTMM: MOV #LOWTWO,R3 MAKE R3 POINT TO THE LOCATION L 
2114 012262 004767 002746 JSR PC,GETSIZ ; LOAD BITS 6-10 OF R2 WITH THE BITS $ 13-17 
2115 :OF THE wt ADDRESS UNDER TEST 
2116 012266 012704 040000 MOV #40000 .R4 sMAKE R4& POINT TO THE LOWEST LOCATION IN THE BANK 
2117 sPOINTED BY PAGE ADDRESS REGISTER 2 (PAR2) 
sig 012272 020237 172344 CMP R2,04172344 iS Me CONTENT OF R2 LOWER THAN THE CONTENT OF 
2120 012276 103405 BLO 2$ :1F SO THEN GO 2$ 
2121 012300 050104 BIS R1,R4 SUBROUTINE GETSIZ LOADED R1 WITH BITS 0-12 
2122 OF LOWADD WHICH HAVE NOW BEEN LOADED IN R4 
2123 012302 162702 000200 SUB #200,R2 
2124 012306 004767 002432 JSR PC ,MMREG 3 SET MEM. MANAG. REGISTERS 
2125 012312 010437 000320 23: MOV R4,a4MINMEM sNEW MINMEM FOR ECC TESTS 
2126 012316 004767 002712 JSR PC,GETSIZ sPLACE BITS 13-17 OF HIGHEST LOCATION TO BE TESTED 
2127 7IN BITS 6-10 OF R2, #160000 IN RO AND BITS 0-12 
2128 : OF LOCATION HIGHADD IN R1 
2129 012322 004767 000020 JSR PC ,MAXADR : GET THE ADDRESS OF MAX. MEM. UNDER TEST 
2130 012326 010005 MOV RO,R5 
2131 012330 004767 002700 JSR PC,GETSIZ ; PREPARE TO SET UP LOCATION MAXMEM 
2132 012334 004767 000006 JSR PC ,MAXADR : GET THE oy ADDRESS OF AVAILABLE MEMORY 
2133 012340 010013 MOV RO, (R3) sAND STORE INTO 'MAXMEM'' 
$i3¢ 012342 000167 167664 JMP CLRMEM :GO TEST A OK SLICE ABOVE 28k. 
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:RO= ON EN NTRY= #160000 AND ON EXIT=HIGHEST VIRTUAL ADDR. UNDER TEST 
=R1= LOW ORDER 12 BITS OF VIRTUAL TEST ADDRESS 
:R2= PAR BLOCK NO. CURRENTLY UNDER TEST. 


10046 MAXADR: MOV RO,- T MAXIMUM AVAILABLE ADDRESS ON STACK 
12700 172356 MOV W1p2386. RO {ROLPAR? UNIBUS ADDRESS 
;¢*BEGIN LOOP TO BAND PAR ADDRESS UNDER TEST 


162716 020000 2 SUB (SP) ;DECREMENT VIRTUAL ADDRESS BY 4k 
050116 BIS R1, (SP) SET BITS 11:0 TO MAXIMUM VIRTUAL TEST ADDRESS 
020240 CMP R2,~(RO) ;DOES CURRENT PAR= TEST BLOCK NO.? 
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m 
ad 
& 
oo 


Q 3$ ;BRANCH IF YES 
172340 RO,4172340 SARE WE AT PARO? 
BH ;NO_KEEP_ TRYING 
TO FIND PAR ADDRESS UNDER_TEST 
D #4 RO :SET_TO CURRENT PAR 
(RO) ,R2 21S THE PAR BLOCK UNDER TEST GTR THAN ALLOWED? 
BRANCH IF YES (FALL INTO ENDPAS) 
157776 #157776, (SP) EXIT WITH MAXADR= 28K SEGMENT TEST SIZE 
: (SP)+,RO :SET RO TO MAXIMUM VIRTUAL TEST ADDRESS 
000002 #2,R0 MAXIMUM MEMORY +2 
PC AND EXIT MAXADR ROUTINE 


(SP)+, (SP)+ 3FIXUP STACK 
AND FALL THRU TO ENDPAS. 
170274 : MOV SAVMIN, @#MINMEM BECAUSE WE WON'T SIZE AGAIN 
;* TYPE ROUTINE FOR ERROR STACK 


** axe Pesan we wees 


-* 


000004 


;* THIS ROUTINE IS USED TO DETERMINE IF TYPE OUT OF THE ERROR STACK 
78 FOR ONLY THE FAILING BITS IS REQUIRED OR NOT 


Monon Nenonononofonononononononononongonys 
NOARARARRROAR AMADA 


026727 170274 172134 3 CSRADR ,#172134 Se CSR ? 
001004 BNE F NOT 
172136 170262 : ae anrete. .CSRADR TRESTORE INIT ADDRESS 


172134 170252 28: #172134,CSRADR ;GET READY TO LOOK FOR SECOND CSR 
012512 000004 43S, an ‘SET UP FOR TRAP 

020020 170236 MOV #20020, @CSRADR MAKE SURE IT BELONGS TO A MS11K 
020020 170230 #20020, »@CSRADR THESE E BI TS ARE UNIQUE TO MS11K CSR 


170222 @CSRADR CLEAR THE BITS JUST_IN CASE 
000222 ACT11 GUESS IT DOES...GO TEST IT 
000004 3$: > taal RESTORE SP 


BR : 
020000 4$: #20000 .aSwR sARE WE GOING TO TYPE THE ERROR STACK AT END OF PASS? 
BNE SEOP :1F NOT THEN GO TO SEOP 
177777 STPSTK: #-1,-(SP) 3 THE PROGRAM HAS REACHED THE END AND ERROR 
STACK AND END OF PASS WILL BE TYPED OUT 
016154 #ENDPROG ,R1 PLACE THE STARTING ro OF THE ERROR STACK 


:FOR 0 TO 4K MEMORY IN 
000376 TYPSTK: #376 ,R3 
I 21F WE HAVE GONE THRU THE ENTIRE 


(SP 
000304 MP R1, @#ENDSTK HAS THE END OF THE ERROR STACK BEEN REACHED ? 
THEN GO TO TYPE END OF PASS 
000022 MOVB #18. ,R2 


RETSTK: R2 7IF ALL 16 BITS OF THIS BANK HAVE BEEN CHECKED. 
BL TYPSTK BEEN CHECKE fy hs THEN SEE IF THERE 


71S ANY MORE MOR 
105721 (R1)+ OTHERWISE CHECK THE oe STORED AT (R1) 
001774 RETSTK ;1F IT IS 0 WE WILL NOT TYPE IT 
020227 R2,416. ;1S THE POINTER rj oh B TO ERROR STACK BYTE 
; MEAN E uae ADDRESS FAILURES FOR 


Nm 
— 


MONVNMINNNoNMoNoNoNoNoNongNoNoNngononony 
ak kk a dd ad od od 9 


2169 
70 
2171 
2172 
173 
2174 
2175 
2176 
77 
2178 
2179 
80 
81 
82 
83 
Os 
85 
86 
87 
88 
89 
90 
92 
93 
4 
95 
96 
97 
98 
99 
$500 
201 
202 
2205 
2204 


012574 103403 2$ 
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012576 004767 001522 PC, TPADER OTHERWISE TYPE *‘ADDRESS ERROR’ 
012602 000404 BR FAIL 
012604 010237 000306 2$: R2, @4DECWRD tn pec iM TYPE THE NUMBER OF THE FAILING BIT - 


7 IN DEC 
012610 004767 001670 J PC, TYPDEC :GO TO TYPE THE BIT NUMBER IN DECIMAL 
012614 011637 000306 : (SP) ,a#DECWRD PREPARE TO TYPE THE PAGE NUMBER 
012620 004767 001664 J PC,$TPDEC IN DECIMAL 
012624 (R3) 
012626 


005043 -(R3 

114113 -(R1),(R3) sPREPARE TO PRINTOUT THE NUMBER OF TIMES THIS 
FAILURE OCCURED 

012630 105021 :CLEAR THE ERROR STACK 

012632 005043 ) 


CL 
012634 105237 ENABLE THE TYPE OUT OF 1 WORDS 
012640 004767 PC,RPTOCT TYPE THE 4K BANK AND THE NUMBER OF TIMES 
THIS FAILURE WAS SEEN 
012644 012703 #376 ,R3 RESET SCRATCH STACK FOR EACH BIT PRINTED. 
012650 000743 BR RETSTK 


;* END OF PASS 


eee 


TYPE ‘END PASS'' AND DISABLE PARITY. 
ALSO SERVICE ACT11. 
AND EVERY CONSECUTIVE PASSES UNLESS BIT 4 OF $SWREG IS HIGH 


3SET R2= PARITY MODULE DISABLE CODE 


: CLR R2 
000311 :CONTROL=C TYPED? 
BNE CT (CH IF YES-RESTORE LOADERS AND HALT- 
000406 @HSPASS “INCREMENT PASS COUNT 
170032 LG :RESET ERROR HEADER FOR NEXT PASS 
000040 170032 "END PASS #XX'' PRINTOUT WANTED? 
BNE Ti1 BRANCH IF NO 


AC 2 H I 
001556 : JSR PC, ; TYPE CR, LF, AND “END PASS #* 


020104 040520 , /END PASS #/ 
021440 000 

000406 000306 MO @4SPASS , AMDECWRD :GET PASS COUNT 
001554 J PC, STPDEC IT 

000042 : a#42,RO iGET THE’ MONITOR ADDRESS 


$DOAGN 
000012 JSR PC ,RLODER <RESTONE XXDP MONITOR 
RESET ;RETURN TO ACT11 MONITOR, 


3* SERVICE XXDP/ACT11 
JMP @#SENDAD :JUMP TO ACT SERVICE 


SDOAGN: @ARESTRT zREPEAT TEST IF NOT UNDER ACT11/XxDP 


RLODER: PC,CLRMM STOP MEMORY ee SO CAN RESTORE LOADERS 
MO @ASAVRG ,R4 RESTORE R4 WITH SAVR 

012770 4$: ~(R4) ,~(R5) sRESTORE LOADERS 

012772 020437 R4 ,@#ENDSTK 
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012776 101374 BHI 4$ 
013000 000207 RTS PC RETURN FROM RLODER CALL 


CONTROL C HANDLER 
004767 177752 CTLC: JSR PC,,RLODER RESTORE ABS LOADER 
000167 001300 JMP APTHLT 71F NOT APT HALT AT FATHLT 


CLEARER ERE REREREEERERERERRAREREREREEEREEREEREREREEREREEEEEKEEEE 


: CHECK BIT GENERATOR ROUTINE 
CALL: JSR PC,CHKGEN 


SOURCE = ADDRESS OF DATA 
CHECK = WORD CONTAINING GENERATED CHECKBITS 


SOURCE: . 
CHK TAB: “WORD 3C1 BIT TABLE 
: C2 BIT TABLE 

:C4 BIT TABLE 

:C8 BIT TABLE 

:C16 BIT TABLE 

:C32 BIT TABLE 

:CT BIT TABLE 


#1 PARITY COUNTER 


NOOOCOOCOO oO 


N 


; COUNTER 
ZODD/EVEN PARITY FLAGS 
;O=EVEN 


;1=0DD 
CT C32 C16 C8 C4 C2 C1 


000236 : J R4,SAVOT4 :SAVE RO T 
RO CL LARING our ‘PARITY COUNTERS 
013053 SCHKCNT RI 3 START 7 COUNTERS 


167616 
000007 #7,RO “FINISHED? 
208 BRANCH H IF YES 
(R1)+ DO THE NEXT BYTE 
RO ‘BUMP THE COt 
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CZMMLC.P11—«- 17=MAR=80 10:47 END OF PASS SEQ 0052 
2317 013114 000772 BR 10$ LOOP 
2318 013116 012701 000001 20$: MOV #1,R1 :SET THE TEST BIT 
2319 013122 012702 013016 30$: MOV ACHKTAB,R2 :START OF CHECK BIT TABLE 
2320 013126 966702 167566 ADD BASE, : 
2321 013132 012703 013053 MOV ACHKCNT ,R3 ZSTART ADDRESS OF PARITY COUNTERS 
2322 013136 066703 167556 ADD BAS ; 
2323 013142 012704 MOV #6,R4 ZFOR SEVEN PARITY COUNTERS 
2324 013146 105067 177700 40$:  CLRB —_—*UPPFLG SINDICATE LOWER WOR 
2325 013152 016700 177634 MOV SOURCE ,RO ;SET ADDRESS OF DATA IN RO 
2326 013156 700 167536 ADD BASE ,RO 
2327 013162 030110 42$: BIT R1, (RO) :CHECK LOWER 16 BITS FOR TEST BIT 
2328 013164 001403 BEQ 50 ‘BRANCH IF NOT SET 
2 013166 030112 BIT R17, (R2) ZLOOK FOR TEST BIT IN CHECK BIT TABLE 
2330 013170 001401 BEQ 50$ ‘BRANCH IF NOT FOUND 
2331 013172 105213 INCB —_ (R3) :FOUND A MATCH, COUNT IT 
2332 013174 062700 000002 50$: ADD #2,RO [RO NOW = SOURCE + 
2333 013200 062702 000002 ADD #2,R2 [POINT TO SECOND WORD IN TABLE 
2334 013204 105767 177642 TSTB —«UPPFLG [CHECK FOR UPPER/LOWER 
2335 013210 001003 BNE 60$ [BRANCH IF UPPER 
2336 013212 105267 177634 INCB —sUPPFLG [CHANGE FLAG TO UPPER 
2337 013216 000761 BR 42$ :CHECK SECOND 16 BITS 
2338 013220 005704 60$: TST RG [LOOK FOR LAST PARITY COUNTER 
2339 013222 001403 BEQ 70$ ‘BRANCH IF DONE 
2340 013224 005203 INC R3 TADVANCE PARITY COUNTER POINTER 
2341 013226 005304 DEC RG ZADVANCE CHECK BIT FLAG COUNTER 
2342 013230 000746 BR 40$ 7GO CHECK NEXT CHECK BIT IN TABLE 
2343 013232 006301 70$: ASL R1 SSHIFT THE BIT OVER 
2344 013234 103332 BCC 30S SADJUST THE PARITY AND ASSEMBLE 
345 [CHECK BIT WORD 
346 013236 012700 000001 MOV #1,RO0 ‘SET FIRST BIT IN R1 
2347 013242 012701 013053 MOV ACHKCNT,R1 ;ADDRESS OF C1 PARITY COUNTER 
2348 013246 066701 167446 ADD BASE ,R1 
2349 013252 130067 177604 80$: BITB RO, PARBYT [CHECKING FOR ODD OR EVEN PARITY 
2350 013256 001401 BEQ 90$ [BRANCH IF EVEN PARITY 
2351 013260 105211 INCB (R11) [ODD, INC THE PARITY COUNTER 
2352 013262 132711 000001 90$:  BITB  #1,(R1) ;TEST PARITY COUNTER FOR SET BIT 
2353 013266 001401 BEQ 100$ 
2354 013270 050004 BIS RO,RG <SET THE CHECK BIT IN CHECK 
2355 013272 005201 100$: INC R1 [NEXT COUNTER 
2356 013274 006300 ASL RO :SHIFT TEST BIT TO NEXT BIT 
2357 013276 032700 000200 BIT #200,RO [CT YET? 
2358 013302 001763 BEQ 80$ ‘BRANCH IF NO 
2359 013304 000304 SWAB RG 
13 006004 ROR R4 
2361 013310 006004 ROR R4 
2362 013312 006004 ROR R4 zPOSITION CHECK BITS IN BITS 11-5 
2363 013314 010467 177474 MOV Ra, CHECK 
2364 013320 004767 000014 JSR C;RSTOT4 ZRESTORE RO TO R4 
2365 013324 000207 RTS PE 
2366 
2367 : 
2368 *CALL JSR R4, SAVOT4 
2369 013326 010346 SAVOT4: MOV R3,-(SP) :SAVE R3 
2370 013330 010246 MOV R2.-(SP) *SAVE R2 
2371 013332 010146 MOV R1.-(SP) *SAVE R1 
2372 013334 01 MOV RO. -(SP) SAVE RO 
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R4 ,PC 3R4 IS ALREADY SAVED 
; JSR PC ,RSTOTS 
RSTOT4: MOV (SP) +,R4 RETURN ADDRESS 
MO 2 ase RO 


3R2 
MO 3R3 
013352 000204 RG sRESTORE R4& AND RETURN 


013354 010046 : RO,-(SP) sSAVE RO 
MO (R3)+ RO ZPICK UP ARGUMENT 


SHIFT HIGH 16 BITS 
SHIFT LOW 16 BITS 
BR IF 


A 


T 
RESTORE RO 


012567 : ° FIRST ARG IS ADDR OF MASK 
012567 MO P SECOND IS ADDR OFDATA 
010046 0.-(SP) 


[SAVE THESE REGS 


BASE , DATADR : 

aS. oR GET MASK 

@DATADR.R1 2GET DATA 

PC,XOR :D0 THE XOR 

R2,@DATADR ;PUT RESULT BACK AS DATA 
# R :NEXT WORD 


[DO THE SAME FOR SECOND WORD 
[PUT RESULT BACK TOO 


SP : 
MS eae ;RO RESTORE THE REGS RO,R2 


MSKADR: . 
DATADR: . 


:XOR ROUTINE 
7* RO = A OPER 


= B OPER 
= RESULT 
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STRATE EE 





CZMMLCO MF11S-K_MEM DIAG 


CZMMLC P11 


013540 


01 
013712 


013716 
013 


17-MAR=80 10:47 


017637 
005767 


010103 
004767 
013703 
110337 


000000 
167152 
020000 


MACY11 "took ba 


D5 
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RROR HANDLING ROUTINE 


-* 
** 


° 
. 
3* 
e 

e 


000402 ERROR: MOV 


167150 


020122 
04 


2s: 


6$: 


;* ERROR HANDLING ROUTINE 


‘kk wesw eeeeeeoeoeooooeeeoooena 


PROGRAM COMES HERE EACH TIME AN ERROR IS ENCOUNTERED THIS 
ROUTINE TYPES OUT THE ERROR MESSAGE IN THE FORMAT GIVEN EARLIER 


@(SP) ,@A#$SFATAL ;LOAD THE LOCATION SFATAL WITH THE ERROR NUMBER 
ERRFLG ERROR ? 


SFIRST 
1$ ‘BR IF NOT FIRST ERROR 
cea anat Ap en DESIRED ? 
PC, TPCRLF ; TYPE ERROR HEADER FOR —— ERROR 
/ ADDR GOOD BAD PC ERR PASFLG XOR / 
<15><12> 
ERRFLG ; INDICATE NOT FIRST ERROR 
R3,-(SP) SAVE R3 
RO,-(SP) sAND RO ON THE STACK 
IN FATAL FOR APT 
R1,R3 7GET VIRTUAL ADDRESS UNDER TEST FOR GETBNK 
PC, GE TBNK GET BANK NO. UNDER TEST INTO PBNK 


@4PBNK ,R3 GET BANK UNDER TEST 
R3,Q4SFATAL+1  ;STORE FAILING BANK NO. FOR APT 


R3,-(SP) 7 TEMPORARILY STORE R3 
#376,R3 [MAKE R3 AS THE STACK POINTER 
OFPASFLG,~(R3) ZOUTPUT THE WORD STORED AT 


@4SFATAL,(R3)  ;PUT ERROR NO. ON ERROR STACK 


6(SP) ~(R3) ;PLACE THE RETURN PC AT (R3) 
(R1) ,-(R3) PLACE BAD DAT. 
RO, 0,-(R5) TAND GOOD DATA ON THE STACK 
5R3) (R3) : TAKE THE 
RO, (R3) ZEXCLUSIVE OR OF GOOD AND BAD DATA 
4 (RS) RO :T0 FIND THE BITS THAT FAILED 
(R3) PLACE IT ON THE STACK 
(RS). sBOCHIP 


PRINT OUT XOR OF GOOD VS BAD 
0G- oA Oars CODE BRINGS THE RELATIVE ADDRESS 
een ;OF THE STARTING OF THE ERROR STACK 
nig. RO [FOR THE SPECIFIC 4K BANK 


SEQ 0055 


CZMMLCO_MF11S-K_MEM DIAG 
17-MAR=80 10:47 


CZMMLC.P11 


014004 
014006 


014010 


014114 
014122 
014126 
014132 


14212 
014214 


014220 


50 
112737 
004767 
004767 
032777 
001011 


001404 
012737 
000443 


010246 
005777 


100405 


166512 


MACY11 30A(1052) 


166646 


000310 


166572 
166562 


000400 


17=-MAR-80 
ERROR HANDLING ROUTINE 

BGE 6$ 

TST (SP) + 
CHGC1: 

ERRTYP: CLRB @4TYPENB 
1$: TSTB @4SPRERR 

BNE 3$ 

TSTB (RO) + 

TSTB @ASADERR 

E 3$ 

TSTB (RO) + 
2$: TST (R3) 

BPL 4$ 
3$: CMPB #377, (RO) 

BEQ 5$ 

INCB (RO) 
5$: CMPB #1, (RO) 

BEQ 7$ 

BIT #400, aSWR 

BNE 4$ 
7$: INCB aT YPENB 
4$: TSTB @4SADERR 

BEQ 6$ 

JSR PC, TPADERR 

BR 8$ 
6$: TSTB (RQ) + 

ASL (R3) 

BNE 2s 
8$: MOVB #6, Q4TYPCNT 

JSR PC,PUTADR 

JSR PC, TYPERR 

kkkkkkekee (CHGC] eeeeeeeann 

BIT #20000 ,aSwR 

BNE 10 

BIT #200, @SWR 

BEQ 1 

MOV BDCHIP,-(R3) 

TST -(R3) 

JSR PC,RPTOCT 
SERRE EERE RR ERE 
10$: CLR @4SPRERR 

MOV (SP)+,RO 

MOV (SP)+,R3 
FNDERR: TSTB a4*$SENV 

BEQ $ 

MOV #1, @4SMSGTY 

BR FATHLT 
2$: MOV R2,-(SP) 

TST aSWR 


BM! 4$ 
:CHECK FOR CONTROL=C KEY 


. 2 
10:48 PAGE 49 


RESTORE THE STACK POINTER 


DISABLE ANY TYPE OUT 

HIF THIS IS PARITY PROBLEM 

;THEN GO TO 3$ 

OTHERWISE INCREMENT THE ERROR STACK POINTER BY 1 

:I1F THIS IS ADDRESSING PROBLEM 

; THEN GO TO 3$ 

: INCREMENT THE POINTER RO BY 1 

71S BIT 15 OF (R3) SET? 

IF NOT THEN GO TO 4$ 

; OTHERWISE SEE IF THIS ERROR HAS OCCURED 377 TIMES 
F SO DON'T BUMP ERROR COUNT 


E 
“INCREMENT THE ERROR COUNTER BY 1 
MORE THAN 1 ERROR OCCURRED ON THIS BIT? 
:BRANCH IF NO 
STOP ERROR PRINTOUT AFTER 1 WANTED? 
BRANCH IF i (DON'T TYPE ERROR) 
sE E THE TYPE OUT ROUTINE 
ADDRESS ERROR? 
:BRANCH IF NO 
sPRINT ‘‘ADR ERR" 


:POINT TO NEXT ENTRY IN ERROR STACK 
21S THERE STILL AN ERROR BIT SET i ERROR. 
BR IF YES = KEEP FILLING ERROR STACK 
TELL _TYPOCT TO TYPE 6 WORDS OF ERROR STACK. 
: THE STACK POINTED BY R3 
[GO TO THE SUBROUTINE TO PLACE THE ADDRESS IN R1 
ZA LOCATIONS (R3) AND (R3-2) 
TYPE ERROR STACK ON WORDS) 


; INH ERROR PRINTOUTS? 


WANTED 
PUT IN LAST USED STACK LOC TO BE PRINTED 
ADJUST POINTER 

SPRINT LAST 6 OCTAL DIGITS 


CLEAR ADDRESS ERROR FLAG 
RESTORE RO 


R3 
sARE WE RUNNING UNDER APT? 


; HE AP 
[GOTO FATHLT AND WAIT FOR APT. 


2 SAVE R2 T 
:DOES oak GPERATOR REQUIRE THE PROGRAM TO HALT 


ON ER 
:1F SO THEN HALT ON ERROR 


SEQ 0056 


. 2 
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CZMMLC.P11 17-MAR~80 10:47 OR HANDLING ROUTINE SEQ 0057 
2549 014222 004767 001650 JSR PC, CHECKC IF CONTROL-C re THEN PRINT ERROR HISTORY 
2550 AND HALT AT FATH 
2551 014226 105737 000042 7$: TSTB arse ARE WE RUNNING UNDER ACT? 

S228 014232 001401 BEQ 6$ ;BRANCH IF NO 

2554 014234 000777 4$: BR 4$ PROGRAM HAS HALTED ON ERROR, R1 IS POINTING 

2555 7TO A LOCATION WHICH SHOULD HAVE CONTAINED 

2556 : THE WORD STORED IN RO 

2557 014236 012602 6$: MOV (SP)+,R2 TRESTORE R2 

2558 014240 062716 000002 ADD #2,(SP) SRESTORE THE RETURN ADDRESS 

$223 014244 000207 RTS PC ZRETURN FROM THE SUBROUTINE 

2561 

2562 

2563 014246 FATERR: 

2564 014246 004767 000212 SEQERR: JSR PC, TPCRLF TYPE ‘ERROR #°" 

2565 014252 051105 047522 020122 -ASCIZ /ERROR #/ 

2566 014260 000043 

2567 - EVEN 

2569 014262 017637 000000 000402 MOV (SP) ,a#SFATAL ;LOAD THE LOCATION $FATAL WITH THE ERROR NUMBER 

2570 014270 105237 000310 INCB @#TYPCNT ;TELL STPNUM TO TYPE 1 WORD 

2571 014274 012703 000376 MOV #376,R3 7STPNUM USES R3 AS STACK 

2572 014300 013743 000402 MOV @YSFATAL,-(R3) PUT ERROR NO. STACK 

2573 014304 005743 TST -(R3) :STPNUM REQUIRES THIS 

2574 014306 004767 000346 JSR PC,FATYP STYPE ERROR NO. 

2575 014312 105757 000420 APTHLT: TSTB @F*SENV RUNNING UNDER APT? 

2576 014316 001326 BNE FNDERR ;BRANCH IF YES 

2577 014320 000240 FATHLT: NOP 7FATAL ERROR OR “C HALT. 

$278 014322 000776 BR FATHLT SRESTART AT 250 IF DESIRED 

2580 014324 105737 000273 TPADER: TSTB @4TYPENB 

2581 014330 001406 BEQ 1$ ;BR IF NO TYPE ENABLED 

2582 014332 004767 000134 JSR PC ,PNTMES PRINT MESSAGE ROUTINE 

2583 014336 042101 020122 051105 -ASCIZ /ADR ERR/ 

2584 014344 000122 

2585 -EVEN 

2586 014346 000207 1$: RTS PC 

2587 

2588 

2589 

2590 7* TYPE OUT ROUTINE 

2591 JR poten enn enn nnn= 

2592 se 

Seo, s* THIS ROUTINE IS USED BY THE PROGRAM TO TYPE OUT ANY CHARACTER 
** 

2595 

2596 014350 010146 NOTYP: MOV R1,-(SP) 

2597 014352 016601 000002 MOV 2(SP),R1 

2598 014356 105721 4$: TSTB (R1)+ :1F THIS TYPE OUT HAS BEEN SUPRESSED THEN 

2599 014 001376 BNE PREPARE TO RETURN 

2600 014362 000412 BR RETTYP 

2601 014364 010146 $TYPE: MOV R1,-(SP) SAVE R1 

2602 014366 010046 MOV RO,-(SP) AND RO ON THE STACK 

2603 014370 016601 000004 MOV 4(SP),R1 sPLACE THE ADDRESS OF MESSAGE TO BE TYPED IN R1 

2604 014374 112100 2$: MOVB (R1)+.RO :PLACE THE BYTE TO BE TYPED IN RO 
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014376 4$ :IF IT IS END OF MESSAGE THEN GO TO 4$ 
004767 000022 — OTHERWISE GO TO TYPE THE CONTENTS OF RO 


(SP) +,RO sRESTORE RO 
: R1 CAUSE R1 TO 
000001 #1,R1 :POINT TO EVEN ADDRESS 
000002 R1,2(SP) ;MODIFY THE RETURN ADDRESS 
(SP)+,R1 RESTORE R1 
014424 0004 EXTYP sAND RETURN VIA RTS PC 


014426 000040 000421 $TPCHR: #40 ,aA#SENVM sHAVE TYPE OUTS BEEN DISABLED? 
1005 BNE 4$ :1F SO THEN RETURN FROM THE SUBROUTINE 
177564 2$: — 


[WAIT HERE 
$ UNTIL THE PRINTER IS READY 

177566 RO, a#$TPB ;LOAD DATA TO BE TYPED INTO DATA REG. 
014450 000404 4$: BR EXTYP > RETURN 


014452 177706 PCRLF : PC $TYPE 
014456 005015 000 ASC <1§><12> ZCR/LF 


-EV 
014462 000207 EXTYP: RTS PC RETURN 
014464 177762 TPCRLF : PC,PCRLF : TYPE CR/LF 
014470 BR STYPE [NOW GO TO TYPE THE REST OF THE MESSAGE 


014472 


CHGC2: 
123737 000042 000046 PNTMES: CMPB OF42 , 0446 ZRUNNING UNDER ACT 11? 
001723 NOTYP 


;BRANCH IF YES =NOT PRINTOUT- 
014502 000770 TPCRLF SEND CR/LF AND TYPE MESSAGE. 
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CZMMLC.P11 17-MAR-80 10:47 ROUTINE TO TYPE OUT A DECIMAL NUMBER SEQ 0059 
2635 
2636 ;* ROUTINE TO TYPE OUT A DECIMAL NUMBER 
Soar DR emer nnn nnn nnn nnn nnn - == 
** 
2639 ;* THIS ROUTINE IS USED TO CONVERT THE CONTENTS OF LOCATION 
sect be DECWRD TO DECIMAL NUMBERS AND TYPE THEN FOLLOWING 3 SPACES 
-* 
2642 
47 014504 004767 177742 TYPDEC: JSR PC ,PCRLF TYPE CR/LF 
2645 014510 005046 $TPDEC: CLR -(SP) 
2646 014512 013746 000306 MOV @YDECWRD,-(SP) ;GET THE WORD THAT HAS TO BE CONVERTED TO A 
2647 sDECIMAL NUMBER 
2648 014516 162716 000012 2$: SUB #10. , (SP) 
et 014522 002403 BLT 4$ #4 ee IN (SP) WAS LESS THAN 10. THEN 
2651 014524 005266 000002 INC 2(SP) SOTHERWISE ADD 1 TO THE LOCATION STORING 10'S DIGIT 
2652 014530 000772 BR 2s SAND RETURN TO 2$ 
2653 014532 062716 000012 4$: ADD #10., (SP) 
2654 014536 052716 006060 BIS #60, (SP) MAKE _ THE CONTENTS OF (SP) DECIMAL NUMBER 
2655 014542 112667 000020 MOVB (SP) + ,6$-2 PLACE THE 1°S DIGIT TO BE TYPED 
2656 014546 052716 000060 BIS #60, (SP) MAKE THE C CONTENTS OF (SP) A wee NUMBER 
2657 014552 112667 000007 MOVB (SPJ +,6$-3 PLACE ee 4 S DIGIT TO BE TYPED 
S028 014556 004767 177602 JSR PC $TYPE oP dace Kean THE NUMBER IN DECIMAL FOLLOWED BY 
ere 014562 020040 030040 000060 me i Z / 00/ 
soee 014570 000207 6$: RTS PC RETURN FROM THE SUBROUTINE 
2664 
2665 :* OCTAL TYPE OUT ROUTINE 
[kh ewe ew wmm www www www wwe wee 
2667 3* 
i* THIS ROUTINE IS USED .s TYPE OUT THE OCTAL_V. 
2669 s* CONTROL SHOULD COME TO THIS ROUTINE WITH RS. POINTING TO 
70 s¢ THE LOW ORDER BITS (I.E. BITS 0-15) OF THE ADDRESS TO 
2671 s* BE TYPED WHERE AS R3-2 SHOULD CONTAIN THE HIGH ) ag BITS 
2672 s@ (I.E. BITS 16 & 17). CONTENTS OF LOCATION R3-1 AND RO ARE 
7° DESTROYED BY THIS SUBROUTINE 
2674 se BYTE TYPCNT SHOULD BE SET TO THE NUMBER OF WORDS THAT HAVE 
2675 se TO BE TYPED. 
=f ; 
2678 014572 032777 020000 166132 TYPERR: BIT #20000 ,aSwR ERROR PRINTOUT WANTED? 
79 014600 001055 OCTXT CH IF NO 
2680 014602 004767 177644 JSR PC,PCRLF STYPE CR/LF 
2681 014606 004767 000012 JSR PC, TYPOCT ; TYPE OCTAL NO. 
2682 014612 000450 BR OCTXT ;RETURN VIA RTS PC 
2683 014614 012123 OCTTYP: MOV (R1)+,(R3)+ :PLACE THE HIGH ORDER BITS AT LOCATION POINTED 
2685 014616 012113 MOV (R1)+, 7 SAND NOW PLACE THE LOW ORDER BITS 
2686 014620 105237 000310 INCB aaTYPCNT ENABLE THE TYPE OUT OF ONE OCTAL WORD 
2687 014624 052743 000004 TYPOCT: BIS #4 ,-(R3) 
2688 014630 106113 2$: = ROLB-—S (R$) 
2689 014632 103376 BCC 2$ 
2690 014634 005000 CLR RO 
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177510 
000040 


000006 


000060 
177522 


177776 
000310 


MACY11 y phi & 


1 pgm B 


CTAL TYPE OUT ROUT! 


RPTOCT: 


CHGC3: 
OCTXT: 


BDCHIP: 


- WORD 


(R3) 
RO 
(R3) 
RO 
$STPNUM 
PC, $TYPE 
f / 

RO 

#6, (R3)+ 
(R3) 

RO 


#60,RO 
PC,STPCHR 
RO 


RPTOCT 
PC 
0 


® 
© ie PAGE 53 


:GET BITS 17 & 16 INTO RO 


; TYPE 3 SPACES 


ENABLE THE TYPE OUT OF 6 OCTAL DIGITS 


PLACE THE CARRY FROM (R3) IN RO 
OR THE CONTENTS OF RO WITH AN ASCII 0 
: TYPE THE OCTAL NUMBER STORED IN RO 


PLACE THE CARRY FROM (R3) IN RO 

PLACE THE CARRY FROM (R3) IN RO 

71F WE HAVEN'T TYPED THE 6 OCTAL DIGITS 
;THEN REPEAT FROM 4$ 

IF ALL THE WORDS REQUIRED HAVE NOT BEEN 


3BR IF = 
; TYPED THEN REPEAT FROM RPTOCT 


:XOR OF GOOD VS BAD DATA 
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014740 
014744 


014750 


015106 
015112 


015114 


015116 
015122 


012702 
105037 


032777 
001043 


00 
105237 
gery 


000761 
013702 
000710 


001400 
000272 


010000 


000004 
015070 
000340 
177572 
000272 
172340 


000200 
000200 


172356 
007600 
172300 
077406 
172316 
177572 


000352 
177366 
046440 


177134 


172354 


MACY11 ph ey f 
SUBROU 


165754 


043516 


MEMYNG: MO 


MMREG: 


2$: 


17-MAR~80 


TINE FOR MEMORY MANAGE 


~ASCIZ 


-EVEN 
JSR 
104 
BR 


MOV 
BR 


5 
10:48 “PAGE 54 
GEMENT 


PROGRAM CONTROL Or Me IF TO DETERMINE IF THE MEMORY MANAGEMENT 


IS AVAILABLE OR NOT 


IT IS_ AVAILABLE THEN WHETHER 


THE MEMORY ABOVE 28k IS REQUIRED TO BE TESTED OR NOT. 


#1400,R2 
WMMAVA 
— 
x TRO 
ANOMM , ( (RO) + 
#340, (RO) 
VMMAVA 
#172340,R1 
(R1)+ 
#200, (R1)+ 
#200,R2 
R2,(R1)+ 
Rie 4172356 
#7600, (R1) 
#172300,R1 
#77406 (R1)+ 
R1,4172316 
4$ 

SRO 
(RO) 
ABUSER ,-(RO) 
PC 
(SP)+, (SP)+ 


PC, TPCRLF 
/NO MNG/ 


PC,FATERR 


SRE TMM 
04172354 ,R2 
MMREG 


CLEAR THE BYTE THAT IS SUPPOSED TO INDICATE 
; THAT IS I 


; AND OF 20 
:TRY TO REACH MEM. MANAG. SRO 
iIF a IS AVAILABLE THEN SET MEM. MANAG. AVAILABLE 


'RI IS POINTING TO PARO 
:PARO WILL POINT TO BANK 0 
SET UP PAR 1 


SETUP PAR1-PAR6 
sADDRESS OF PAR7 


sPAR7 IS POINTING TO THE I/O PAGE 
SETUP PDRO-PDR7 


ENABLE MEM. MANAG. 
sRESTORE TIME OUT TRAP VECTOR FOR ANY FUTURE TRAP 


sRESTORE STACK POINTER 
TYPE ‘NO MEMORY MANAGEMENT MESSAGE 


s*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 
p*keeeeERROR NUMBER 104eexan 


; RESTORE TIME OUT TRAP VECTOR 
sPREPARE TO UPDATE MEMORY MANAG. REGISTERS 


SEQ 0061 
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loleleleleleloleleleleolo) 


15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
5 


015176 
015202 


NISRSSLSESSSNSR 


ooCcoo 
= 


015214 
015220 


015222 
015226 


016143 
005043 


116113 
000207 


177776 
000272 


017777 


000001 


177777 


K 5 
MACY11 SPA 0se) 17-MAR~80 10:48 PAGE 55 
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ea eae ee eee * 


430 
455 


BeBe Be Be Be Be Be Be Be Be Be 
ae eae ennnnnen 


cs 


s 538 


18 BIT ADDRESS _ GENERATOR _ 


THIS SUBROUTINE IS USED TO PLACE THE ADDRESS STORED IN R1 

IN THE LOCATION POINTED BY R3. THE ADDRESS . R1 IS CONVERTED 
TO AN 18 BIT ADDRESS ONLY IF MEM. MANAG. IS AVILABLE IN WHICH 
CASE THE HIGH ORDER BITS OF THE ADDRESS ARE PLACED IN LOCATION 
POINTED BY R3-2 


-2(R3) 
PLACE THE ADDRESS STORED IN RI IN LOCATION (R3) 
31S THE MEM. MANAG. AVAILABL 

cI 1 ee RETURN FROM THE SUBROUTINE 


SCLEAR BITS 0-12 OF THE ADDRESS IN R1 
sLEAVE BITS 0-12 OF THE ADDRESS IN (R3) 
;PREPARE TO SHIFT R1 BY 12 PLACES 


:GET oe Gieekae ae’ tom IN R1 
GET THE ADDRESS OF PAR IN R1 
:LOAD R1 WITH THE CONTENTS OF PAR 


PLACE THE ADDRESS BITS taal IN BITS 11-15 OF R1 
SO WE DON'T PICK 
SPLACE BIT 17 IN LOCATION "POINTED BY R3-2 


sPLACE BIT 16 OF THE ADDRESS 
soketted at 13-15 OF THE ADDRESS IN LOCATION (R3) 


RETURN FROM THE SUBROUTINE 


;* GET ADDRESS FROM THE APT MAILBOX 


THIS SUBROUTINE IS USED TO GET ADDRESS FROM APT MAILBOX 
PLACE IT IN THE LOCATION USED BY THE PROGRAM TO DEFINE THe 
MEMORY woe 

TROL SHOULD COME TO THIS SUBROUTINE WITH R1 POINT= 
ING TO THE MEMORY TYPE IN THE APT MAILBOX AND R3 POINTING TO 
Hy na et WHERE THE LOW ORDER BITS OF THE ADDRESS HAVE 


1(R1) ,=(R3) PLACE THE LOW ORDER BITS OF THE ADDRESS 

-(R3) ;CLEAR_THE LOCATION WHERE THE HIGH ORDER BITS 
HAVE TO BE PLACED 

-1(R1),(R3) ;PLACE BITS 16 & 17 

PC RETURN FROM THE SUBROUTINE 
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CZMMLC.P11 17=MAR=80 10:47 ONVERT 18 BIT ADDRESS TO THE PAR FORM SEQ 0063 
2820 
2821 7* CONVERT 18 BIT ADDRESS TO THE PAR FORM 
sB5§ é °h ewww memo owoowewowa] wees ome mecoane 
* 
2824 * THIS SUBROUTINE IS USED TO CONVERT 18 BIT ADDRESS STORED IN 
2825 3* LOCATIONS POINTED BY R3 AND R3+2 TO THE FORM IT WILL BE STORED 
2826 :* IN A PAR. THE RESULT IS LEFT IN Re R1 IS LOADED WITH BITS 
she? :* ou12 OF THE ADDRESS AND RO WITH 160000 
** 
2829 
2830 015230 105237 000311 $GTSIZ: INCB  a@#SAVKBB ;PREPARE TO PLACE ADDRESS BITS 13-17 IN BITS 
sees 70-4 OF R2 
2833 015234 012301 GETSIZ: MOV (R3)+,R1 
2834 015236 011302 MOV (R3) ,R2 ;LOAD R2 WITH THE LOW ORDER BITS OF THE ADDRESS 
2835 015240 042702 017777 BIC #17777,R2 ZCLEAR ADDRESS BITS 0-12 
2836 015244 052702 000040 2s: BIS #40,R2 
2837 015250 006001 4$: ROR R1 
2838 015252 006002 ROR R2 ;ROTATE R1 AND R2 7 TIMES 
2839 015254 103375 BCC 4$ 
2840 015256 105737 000311 TSTB  a@#SAVKBB 
2841 015262 001405 BEQ 6$ 
2842 015264 105037 000311 CLRB  a@#SAVKBB 
2843 015270 052702 000100 BIS #100,R2 
2844 015274 000765 BR 4$ 
2845 015276 012301 6$: MOV (R3)+,R1 jPLACE THE LOW ORDER ADDRESS BITS IN R1 
2846 015300 012700 160000 MOV #160000,RO 
2847 015304 040001 BIC RO,R1 ZLEAVE BITS o-12 OF THE ADDRESS IN R1 
2848 015306 000207 RTS PC TRETURN FROM THE SUBRORNE 
2850 
2851 
$852 7* SUBROUTINE TO DISABLE MEMORY MANAGEMENT 
°% weer ewww wee oo eww www ww www ow ww ww ww ww www ow 
2854 ie 
2855 :* THIS SUBROUTINE IS CALLED TO DISABLE THE MEMORY MANAGEMENT 
sReS :* UNIT 
2858 015310 105737 000272 CLRMM: TSTB  a@#MMAVA zWAS THE MEMORY MANAGEMENT ENABLED ? 
2859 015314 001404 BEQ 1$ zIF NOT THEN GO TO 1$ 
2860 015316 005037 177572 CLR a¥sRO ;DISABLE THE MEMORY MANAGEMENT 
2861 015322 105037 000272 CLRB a@4MMAVA :AND DO NOT ATTEMPT TO TEST MEM. MANAG. 
3862 015326 000207 1$: RTS PC ZRETURN FROM THE SUBROUTINE 
2864 
2865 * GET BANK NO. UNDER TEST 
2866 “CALLED BY ERRive TO GET BANK NO. UNDER TEST INTO PBNK. 
2867 :REGIST ERS 
2868 >RO=POINTER TO PAR UNDER TEST 
2869 [R3=VIRTUAL ADDRESS ON ENTRY 
3870 TRO+R3 ARE RESTORED ON EXIT. 
2872 015330 010046 GETBNK: MOV RO. (SP) 7SAVE RO 
2873 015332 010346 MOV SSAVE R3 
2874 015334 042703 017777 BIC Ree CSP a3 > SAVE ONLY VIRTUAL BANK BITS 
2875 015340 052703 010000 BIS #10000.R3 3S R3 SHIFT BIT 
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000241 CLC 

006003 1$: ROR 3 :SHIFT A BANK B 

103376 BCC UNTIL IN BITS o: O> OF R3 
105737 000272 TSTB aMMAVA ;MEMORY MANAGEMENT UNDER TEST? 
001407 BEQ 2s 3NO EXIT 


:GET PAR ADDRESS AND PHYSICAL BANK Fe y 
ASL R E R3 PAR ADDRESS OFFSET. 


#172340,R3 iMAKE FULL PAR ADDRESS. 
(R3).R RO :GET PAR CONTENTS 


RO 2 SHIFT BANK BITS TO BITS <7:0> 
RO.R3 :SET R3_ TO PHYSICAL BANK NO. 
R3,Q4PBNK STORE PHYSICAL BANK NO. 

(SP) +,R3 RESTORE R3 


(SP) +,RO RESTORE RO 
PC RETURN TO CALLER 


THE 1K BANK UNDER TEST 
‘LED BY TEST 7 
ISTERS 
= VIRTUAL ADDRESS ON ENTRY 
; RO = POINTER TO 1K UNDER TEST 
7R1 WILL BE RESTORED ON EXIT 
015410 010146 GETIK: R1,-(SP) 
042701 B #3777,R1 
052701 002000 #2000.R1 
000241 


1$: ROR R1 


1 3 THE BANK 
103376 1$ SUNTIL THEYR'E IN BITS 4:0 
010100 MOV R1,RO IN CASE_NO MEM MGNT 
105737 aeMMAVA vo ght AVAILABLE ? 


001416 BEQ 2s 

:GET PAR AND PHYSICAL BANK 
010146 MOV R1, 7SAVE 1K BANK 

R1 MAKE R1 A PAR ADDRESS 

7PAR aes ARE 4K BOUNDARIES 
MAKE IT A FULL PAR ADDR. 
GET THE PAR CONTENTS 
SHIFT RO 


sONLY WANT THE 2 LSB'S 
SET THE IN PAR 
RESTORE R1 

SAND EXIT 


THIS ROUTINE CHECKS THE ADDRESS IN R1 
>TO MAKE SURE IT IS ERROR FREE, INCLUDING 


5 
CZMMLCO_MF11S=-K_MEM DIAG MACY11 g phy f 17-MAR~80 10:48 "PACE 58 


CZMMLC.P11 —- 17=MAR=B80 10:47 UBROUTINE TO DISABLE MEMORY MANAGEMENT SEQ 0065 
2932 : 
2935 015500 016777 165204 165222 TSTADD: MOV ECCDIS,@CSRADR ;DISABLE ECC 
2934 015506 005011 CLR (R1) SCLEAR A LOC 
2935 015510 005061 000002 CLR.  2(R1) [UPPER WORD TOO 
293% 015514 005711 TST (R1) SREAD ZEROS 
2937 015516 001047 BNE 1$ :BR IF ERR 
2938 015520 005761 000002 TST 2(R1) : SHOULD BE FEROS ALSO 
2939 015524 044 BNE 1$ 
2940 015526 005111 COM (R1) : COMPLEMENT OF 0 = 177777 
2941 015530 005161 000002 COM 2(R1) ‘BOTH WORDS 
2942 015534 022711 177777 CMP #~-1,(R1) SREAD ALL ONES 
2943 015540 001036 BNE 1$ :BR IF NO 
2944 015542 022761 177777 000002 CMP #-1,2(R1) [READ AGAIN 
2945 015550 001032 BNE 1$ 7BR IF ERROR 
2946 015552 016703 165152 MOV CSRADR,R3 [GET ADDRESS OF CSR 
2947 015556 016713 165130 MOV DIAGA, (R3) :SET DIAGNOSTIC BIT 
2948 015562 052713 000002 BIS #2, (R$) ZAND ECCDIS BIT 
2949 015 012711 000000 MOV #0,(R1) -TO WRITE ALL ZERO CHECKBITS 
2950 015572 005761 000002 TST 2(R1) [READ AND RECORD CHECKBITS 
2951 015576 032713 007740 BIT #7740, (R3) [NO CHECKBIT SHOULD BE SET 
2952 015602 001015 BNE 1$ ‘BR IF SET 
2953 015604 052713 007740 BIS #7740, (R3) ZMAKE CHECKBITS ALL ONES 
015610 012711 177777 MOV #-1,(R1) [WRITE THEM LIKE THIS 
2955 015614 042713 007740 BIC #7740, (R3) 7SO WE KNOW IF WE READ THEM BACK 
2956 015620 005761 000002 TST 2(R1) [READ THEM 
2957 015624 042713 170037 BIC #170037,(R3)  :ONLY WANT CHECKBITS 
2958 015630 022713 007740 CMP #7740, (R3) ‘SHOULD BE ALL ONES 
2959 015634 001403 BEQ 2$ “BR IF OK 
01 012703 000001 1$: MOV #1,R3 Z INDICATE ERROR FOUND 
2961 015642 000401 BR 3$ SAND EXIT 
2962 015644 005003 2$: CLR R3 SCLEARED = GOOD LOC 
2963 015646 005077 165056 3$: CLR @CSRADR [CLEAR CSR BEFORE LEAVING 
2964 015652 000207 RTS PC TAND EXIT 
2965 
Soeo ;THIS ROUTINE IS USED TO COUNT THE BAD CHECKBITS 
:FROM TEST 15. IT USES THE ROUTINE 'XOR® AND THEN 
3969 ZCOUNTS THE BAD ONES 
2971 015654 005067 000056 BITCHK: CLR BITCNT ;WANT TO START CLEAN 
2972 015660 010146 MOV RI. -(SP) [SAVE ADDRESS 
2973 015662 017701 165042 MOV @CSRADR,R1 [GET CONTENTS OF CSR 
2974 015666 042701 170037 BIC #170037.R1 SONLY WANT CHECK BITS 
2975 015672 010146 MOV RI (SP) :SAVE THIS TOO 
2976 015674 004767 175626 JSR *RO XOR R1 = R2 
3977 015700 012701 000020 MOV W6-RI GETTING READY TO COUNT 
2979 
2980 015704 006301 1$: ASL R1 :SHIFT TO NEXT POSITION 
2981 015706 020127 010000 CMP R1,#10000 ; FINISHED YET 
2982 015712 001405 BEQ 2$ [BR IF DONE 
2983 015714 03010 BIT R1,R2 :SEE If THIS BIT (R1) IS BAD 
2984 015716 00177 BEQ 1$° by :BR IF Nor T BAD 
2985 015720 005267 000012 INC BITCNT SIT IS, T IT 
2986 015724 000767 BR 1$ NOT DONE ver KEEP GOING 
2987 015726 012600 


23: MoV (SP) +,RO sFIRST GET 
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(SP)+,R1 ; THEN ADDRESS 
RO. (Ri) :PUT BAD DATA AWAY FOR PRINTOUT 


BITCNT: 0 :# OF BAD CHECKBITS FOUND ABOVE 
:THIS ROUTINE PRINTS THE TITLE AND MESSAGE 


: JSR PC,TPCR :PRINT ROUTINE 
ASCII rom CO. MFLLS-K MEM DIAG/ 


eASCII / USE TO TEST MF11S-K ECC MEMORY/ 


WWORUIs& 


eASCIZ <15><12>/TYPE <CONTROL C> TO EXIT/ 


SSW —-OOn 


oon N 


EVEN 
012767 MOV #172136,CSRADR ;ORIGINAL CSR ADDRESS 
000207 TS PC RETURN TO START ROUTINE 


30 
30 
30 
30 
30 
30 
30 
30 
30 


ee ce eed ed eed eed eed 
CONAUSWIR—O 


= CHECKC 
THIS ROUTINE CHECKS IF CONTROL-C WAS TYPED AT THE END OF EACH 
;TEST OR IN THE ERROR TYPE ROUTINE. 
3IF CONTROL=C TYPED THE PROGRAM IS RETURNED TO LOWER MEMORY IF IT WAS 
RELOCATED AND THE ERROR HISTORY IS PRINTED OUT. 
FINALLY IT HALTS AT FATHLT. 


000311 CHECKC: ee iol CONTROL-C FLAG. 


177560 CHAR. TYPED? 
‘BR. IF NO-EXIT rele RTS PC- 
177562 MOVB @4SKBB ,R2 GET THE CHAR 
000200 CLEAR THE PARITY BIT. 
000003 MPB #3,R 31S IT CONTROL~C? 
BNE BRANCH IF NO ~EXIT VIA RTS PC- 
ee STORE, THE CHAR. FOR USE AS A FLAG. 


ooo 
pa pf 


— 3 
AAAAAAAAOW 


000311 
176326 JSR PC; TPCRLF 3PR 
000 1*¢/ 


oS SOOCOoOCO 
= oe 
ND EVRRSRSKLO 


So 
— 
AO 
— 
S 
oa 


164556 ERRFLG CLEAR ERROR HEADER FLAG FOR NEXT STAR 
173730 JMP oo GO RETURN PROGRAM TO LOWER CORE IF RELOCATED. 


oO 
—_ 
ao an 
—- at 
ww 
* % 


0 :THIS BEGINS THE STORAGE FOR THE ERROR HISTORY 





digit atin DIAG 
17-MAR=80 10:4 
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:STACK,FOR EACH 4K BANK 18. BYTES ARE SAVED. 
ALSO THE ABSOLUTE LOADER AND XXDP CODE IS SAVED 
AFTER THE ERROR STACK. 
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>> 
3oc8 
ree 


254 
2239 22464 


: 


perereee 


é 


gE 


APRIOR= 000000 
APTHLT 014312 
APTSIZ 001210 

SWREG= 000000 


A 

ATESTN= 

AUNIT = 000000 

AUSWR = 

AVECT1= 000000 

AVECT2= 000000 

BAKPAT 000312 7 591 1724 1726 2013* 2025+ 

BASE 002720 09" 817 981 1126 1160 1312 1393 2065* 2072 2080* 


2326 2548 
BOCHIP 014736 a 
BEGIN 000500 225 2854 326 2071 2073 2085 2092 
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CTLC 
DASHL 


DATADR 
DATBUF 


DATSAV 
DBEMSK 


DE CWRD 
DIAGA 


DISPLA 
DSPREG 
ECCDIS 


015654 
01 


013002 
013354 


013524 
002664 


012422 
012430 


00761 
010252 


MACY11 30A(1052) 
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29718 
2971*  2985* 
1446 1529 1616 1619 


2754 
1293 1449 1622 22798 


23094 


1220 


1044 
2062* 2081 


23978 


2363* 
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CZMMLC P11 17-MAR-80 10:47 CROSS REFERENCE TABLE =~ USER SYMBOLS SEQ 0070 
END13 010364 17104 
END14 010476 17484 
END1S 011330 18804 
END16 = 011500 19644 
END17 011636 20154 
END2 003540 9034 
ENDS 003772 9664 
E 004146 10124 
ENDS 004616 1100 1112 11154 
END6 005534 1125 12544 
END7 006526 14114 
ERRFLG 002724 7114 =2237% = =2445 2462* 3039+ 
ERROR 013540 765 795 802 823 830 871 878 887 894 935 955 1005 1057 
1 1071 1079 1088 10 1173 1196 1202 1210 1229 1307 1319 1364 
1463 1470 1551 1558 1637 1644 1696 1740 1760 1808 1829 1853 
1871 1904 1911 1938 1990 24444 
ERRTYP 014010 24978 
EXITC 016152 3030 3034 30414 
EXTYP 014462 2613 2620 26254 
FAILNM 012614 2206 22104 
FATERR 014246 321 357 402 557 575 598 987 2052 25634 2762 
FATHLT 014320 2541 25774 2578 
FATYP 660 2574 26994 
FNDERR 014174 25384 2576 
GETADR 015214 406 407 28154 
GETBNK 015330 2469 28724 
GETSIZ 015234 2114 2126 2131 28334 
GETIK 015410 1357 29024 
HIGHAD 330 2124 93 
HIGHTW 000326 2114 392 510 
INHREL 002726 316* 324 330* 335 7124 2033 
LDFLG 002716 295* 311* 437 7084 993 2029 
LOOP 002460 6384 696 
LOWADD 000324 2094 414 439* 
LOWBNK 000300 1754 176 
LOWER 012200 2094 20984 
LOWTWO 000322 2084 440* 501 549 2113 
M = 000200 234 
012346 2129 2132 21434 
MAXMEM 336 2184 39 * 
MEMPNG 014740 454 2105 27298 
MEMTST 002224 5824 
MINMEM 000320 41* 42s 2044 445* 547 602 624* 787 916 922 1043 1150 1178 
1215 1235 1266 1451 1457 1537 1543 1547 1580 1624 1633 1668 1" 
2061* 2084* 2125% 2163* 
MMAVA 000272 1574 160 435 455 2026 2107 2730* 2738* 2782 2858 2861* 2879 2909 
MAREG 014744 2124 27304 2768 
13522 2397* 2402% 2404 2408* 2410 24204 
MSYES 002714 413* 431 441* 444% 450 7074 
N = 000105 234 321 3244 357 3604 402 4054 557 5604 575 5784 598 6014 
736 739# 750 7524 753 7564 761 7634 784 7874 795 7984 802 
8054 823 8264 830 8334 857 8604 871 8744 878 8814 887 890" 
894 8974 911 9144 935 9384 955 9584 976 9798 986 1005 
10084 1022 10254 1057 10604 1064 10674 1071 10744 1079 10824 1088 10914 
1096 0 1121 11244 11373 11764 1202 12054 1210 12134 1262 12654 1307 
13104 1319 13224 1364 13674 1420 14234 1463 14664 1470 14734 06 15098 
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1558 15614 594 15974 O# 1696 
1740 1760 86 Hb 


17244 


1336 
1959* 
2523 


2091* 


000240 
014246 


1441* 


000200 
000276 
SWAPAT 000314 
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TSTSCP 
TSTSIZ 
0 


17-MAR-80 10:47 
002644 
002732 
000176 
004000 
002544 
177560 
014324 
014464 
001300 
015500 


004736 
005540 
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379s 


1396* 
2513* 


26874 
4884 


1253* 


2217* 
2580 


594 
2238 


2521* 


639 
2447 


2570* 


2686* 


2713* 
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015116 

013052 1629* 1647 1649* 2295  2324% 2334 
000120 664 

013526 2976 

000275 1695* 1738* 2501 2514 


000272 
012256 
000426 


000410 
012754 
000156 
2538 2575 


2471* 2479 2569* 2572 


351 


1240 1324 1340 1477 1563 1651 2236* 2244 
2535* 


STESTN 344 690 2 1020 1119 1260 
STN 


00# 
= , 2617 
$TPSTK 012530 104 21874 
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STSTM 000276 1504 

STYPE 014364 505 26014 2622 2628 2658 2696 

SUNIT 000412 104 2464 

SUNITM 000302 1524 

$US 000424 2534 

$2 = 000362 2328 

. = 016156 214 64 344 364 384 524 934 137 1384 1404 1424 1564 
1604 1644 1684 1724 1744 1764 1814 1834 1864 232 2354 2844 657 
735 783 13904 1979 22434 23084 24614 2489 26244 27614 30384 

-$X = 000272 1374 142 
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- ABS. 016156 000 


ERRORS DETECTED: 0O 


CZMMLC..BIN, CZMMLC.LST/CRF/SOL/NL : TOC=CZMMLC.SML,CZMMLC.P11 
RUN-TIME: 81 42 2 SECONDS 


RUN-TIME RATIO: 153/76=1.9 
CORE USED: 32k (63 PAGES) 





